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43 
44 

45 1. ABSTRACT 

47 THE FUNCTION Of THE KHC11 DIAGNOSTICS IS TO VERIFY THAT THE 

48 OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 

49 VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE ALL OPERATIONS 

50 OF THE KNC11 ARE CORRECT IN ITS ENVIRONMENT. 

52 PARAMETERS MUST BE SET UP TO ALERT THE DIAGNOSTICS TO THE 

53 KMC11 CONFIGURATION. THESE PARAMETERS ARE CONTAINED IN THE 
d STATUS TABLE AND ARE GENERATED IN TWO WAYS: 1) MANUAL 

55 INPUT - THE OPERATOR ANSWERS QUESTIONS. 2) AUTOSIZING - THE 

56 PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY. 

58 CZKCF TESTS THE KMC-11 LINE UNIT (M8201 OR M8202). IT 

59 PERFORMS WRITE/READ TESTS ON THE KMC LINE UNIT REGISTERS. IT 

60 CHECKS FOR PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION IN 

61 BITSTUFF MODE. THE MODEM SIGNALS ARE ALSO CHECKED. DZKCF 

62 REQUIRES A KMC MICRO-PROCESSOR (M8204) TO RUN. FOR BEST 

63 DIAGNOSIS A TURN-AROUND CONNECTOR SHOULD BE INSTALLED, HOWEVER 

64 THE DIAGNOSTIC WILL RUN WITHOUT IT (SOME TESTS ARE SKIPPED). 

66 CURRENTLY THERE ARE FOUR OFF LINE DIAGNOSTICS THAT ARE TO BE 

67 RUN IN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 

68 WILL BE DETECTED AT AN EARLY STAGE. 

70 NOTE: ADDITIONAL DIAGNOSTICS NAY BE ADDED IN THE FUTURE. 

72 THE FOUR DIAGNOSTICS ARE: 

74 T. DZKCC CREV3 BASIC W/R AND MICRO-PROCESSOR TESTS 

75 2. D2KCD CREVl JUMP AND MAIN HEHORYTESTS (HEAT TEST TAPE) 

76 3. D2KCE CREV] ODCMP LINE UNIT TESTS 

77 4. DZKCF CREV3 BITSTUFF LINE UNIT TESTS 

78 5. DZKCA CREV3 KNC11 CPU MI CRO-D I GNOSTICS. 
79 

80 

81 NOTE: NAMES NAY CHANGE AS UPDATES OCCUR. 

83 2. REQUIREMENTS 

85 2.1 EQUIPMENT 

87 ANY POPn FAMILY CPU (EXCEPT AN LSl-11) WITH MINIMUM 8K MEMORY 

88 ASR 33 (OR EQUILIVALENT) 

89 KNC11-AN lOP (H8204) 

90 KNC11-0A OR KMC11-N0 OR KNOT 1 -MA 

91 
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92 

94 2.2 STORAGE 

96 PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE A8L AND 

97 BOOTSTRAP LOADER RESIDE. LOCATIONS 2100 THRU 2300; CONTAIN 
QB THE "STATUS TABLE" INFORMATION WHICH IS GENERATED AT START OF 
99 DIAGNOSTICS BY MANUAL INPUT (QUESTIONS) OR AUTOMATICALLY 

100 (AUTO-SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 

101 ALTERED BY THE OPERATOR. 

103 I LOADING PROCEEDURE 
10A 

105 3.1 METHOD 

107 ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 

10R ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 

109 AS DISK .MAGTAPE, DECT APE, OR CASSETTE; FOLLOW INSTRUCTIONS 

110 FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 

111 MEDIA. 

113 ABSOLUTE LOADER STARTING ADDRESS •500 

115 MEMORY •SIZE 

111 ?K 

20 16K 77 

21 20K 117 

22 24K 157 

125 28K 157 
124 

126 3.1.1 PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 

127 (ALSO PLACE 'HALT' SU UP) 

129 3.1.2 DEPRESS 'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE. 

15? 3.1.3 DEPRESS 'START KEY* ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 

132 BE LOADING INTO CPU) 

133 

134 



L 
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155 
136 

137 4. STARTING PROCEEOURE 

138 

139 A. SET SUITCH REGISTER TO 000200 

140 B. DEPRESS 'LOAD ADDRESS* KEY AND RELEASE 

141 C. SET SWR TO ZERO FOR 'AUTO SIZING' OR SWR BIT0=1 FOR MANUAL 

142 INPUT (QUESTIONS) OR SWR BIT7=1 TO USE EXISTING PARAMETERS 

143 SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN KMC11 

144 DIAGNOSTIC. 

145 D. DEPRESS 'START KEY* AND RELEASE. THE PROGRAM WILL TYPE 

146 MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START 

147 UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 
148 

149 MAP OF KMC11 STATUS 

150 

151 PC GSR STAT1 STAT2 STAT3 

153 002100 160010 045310 177777 000000 

154 002110 160020 045320 ^7777 000000 
155 

156 THE PROGRAM WILL TYPE 'R' AND PROCEED TO RUN THE DIAGNOSTIC. 

157 THE ABOVE IS ONLY AN EXAMPLE. THIS WOULD INDICATE THE STATUS 

158 TABLE STARTING AT ADD. 2100 IN THE PROGRAM. IN THIS EXAMPLE 

159 THE TABLE CONTAINS THE INFORMATION AND STATUS OF TWO KMCIVS. 

160 THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 

161 IS DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 

162 HELP. 

163 IF THE DIAGNOSTIC WAS STARTED WITH SW00=1 INDICATING MANUAL 

164 PARAMETER INPUT THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE 

165 QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 

166 HOW MANY KNCII'S TO BE TESTED?1 

167 01 

168 CSR ADDRESS7160010 

169 VECTOR AD0RESS7310 

170 BR PRIORITY LEVEL? (4,5.6.7)?5 

171 WHICH LIME UNIT? IF NONE TYPE "H", IF H8201 TYPE "1". IF 

172 M8202 TYPE "2"?1 

173 IS THE LOOP BACK CONNECTOR ON?Y 

174 (IF N8201 AND LOOP BACK CONNECTOR ON THEN YOU GET THE NEXT QUESTION) 

175 WHICH MODEM TYPE, TYPE "D" FOR KMC11-DA (RS232).OR 

176 TYPE "F" FOR KMC11-FA (V.35) ? D 

177 SWITCH PAC#1 (OOCMP LlNEf)?377 

178 SWITCH PACfZ {BM873 BOOT ADD)?377 

179 FOLLOWING THE QUESTIONS THE STATUS MAP IS PRINTED OUT AS 

180 DESCRIBED ABOVE, THE INFORMATION IN THE NAP REFLECTS THE 

181 ANSWERS TO THE QUESTIONS. IF THE DIAGNOSTIC WAS STARTED WITH 

182 SWOO=0 AND SW07sO (AUTO-SIZING) THEN NO QUESTIONS ARE ASKED 

183 AND ONLY THE STATUS-HAP IS PRINTED OUT. IF AUTO-SIZING IS 

184 USED THE STATUS INFORMATION MUST BE VERIF lED TO BE CORRECT 

185 (MATCH THE HARDWARE). IF IT DOES NOT MATCH THE HARDWARE THE 

186 DIAGNOSTIC MUST BE RESTARTED WITH SWOO-1 AND THE QUESTIONS 

187 ANSWERED. 
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4.1 



CONTROL SWITCH SETTINGS 



SU 15 SET 
SU 14 SET 
SW 13 SET 
SU 12 SET 
Sy 11 SET 
SU 10 SET 
SU 09 SET 
SU 08 SET 
SU 07 SET 
SU 06 SET 



SET 
SET 



SU 05 
SU 04 
SU 03 SET 
SU 02 SET 
SU 01 SET 
SU 00 SET 



HALT ON ERROR 

LOOP ON CURRENT TEST 

INHIBIT ERROR PRINT OUT 

INHIBIT TYPE OUT ABELL ON ERROR. 

INHIBIT ITERATIONS. (QUICK PASS) 

ESCAPE TO NEXT TEST ON ERROR 

LOOP WITH CURRENT DATA 

CATCH ERROR AND LOOP ON IT 

USE PREVIOUS STATUS TABLE. 

HALT IN ROMCLK ROUTINE BEFORE CLOCKING 

MICRO-PROCESSOR 

RESERVED 

RESERVED 

RESELECT KMCITS DESIRED ACTIVE 

LOCK ON SELECTED TEST 

RESTART PROGRAM AT SELECTED TEST 

BUILD NEW STATUS TABLE FROM QUESTIONS. (IF SU07=0 

AND SUOOxO A NEW STATUS TABLE IS BUILT BY 

AUTO-SIZING) 



SUITCH 06 AKD 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 
WHILE THE DIAGNOSTIC IS RUNNING. SUITCHES 00-03 AND SWITCH 07 
ARE STATIC. AND ARE USED ONLY ON STARTING OR RESTARTING THE 
DIAGNOSTIC. 
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4.1.2 SWITCH REGISTER OPTIONS (AT START UP) 

SU 01 RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 
TRYING TO SELECT A TEST, THE REASON BEING IS THAT THE 
PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
WHEN THIS SWITCH IS USED THE DIAGNOSTIC WILL ASK TEST 
NO.? ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED 
AND CARRIGE RETURN TO BEGIN EXECUTION AT THE SELECTED 
TEST. 

SW 02 LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 
SW01 WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE 
SELECTED TEST. HITTING ANY KEY ON THE CONSOLE WILL 
LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 
IS HIT AGAIN. IF SW02=0 WHEN SW01 IS USED. THE 
PROGRAM WILL BEGIN AT THE SELECTED TEST AND CONTINUE 
NORMAL OPERATIONS. 

SW 03 RESELECT KNCII'S DESIRED ACTIVE. PLEASE NOTE THAT A 
MESSAGE IS TYPED OUT FOR SETTING THE SWITCH REGISTER 
EQUAL TO KHCirS ACTIVE. THIS MEANS IF THE SYSTEM HAS 
FOUR KMC11S; BITS 00,01,02.03 WILL BE SET IN LOC 
•KHACTV FROM THE SWITCH REGISTER. USING THIS 
SWITCH(SWOO) ALTERS THAT LOCATION;THEREFORE U FOUR 
KHC11S ARE IN THE SYSTEM ♦**00 NOT*** SET SWITCHS 
GREATER THAN SW 03 IN THE UP POSITION. THIS WOULD BE 
A FATAL ERROR. 00 NOT SELECT MORE ACTIVE KHCllS THAN 
THERE IS INFORMATION ON IN THE STATUS TABLE. 



METHOD: A 
B 

C 
D 



F: 



LOAD ADDRESS 200 
START WITH SW 00=1 
PROGRAM WILL TYPE MESSAGE 

SET A SWITCH FOR EACH KMC DESIRED ACTIVE. 
EXAMPLE: IF YOU HAVE 4 KHC'S BUT ONLY WANT TO 
RUN THE FIRST AND THE LAST SET SWR BITS 0 AND 
3=1. PRESS CONTINUE 

NUMBER (IF VALID) WILL BE IN DATA LIGHTS 
(EXCLUDING 11/05) 

SET WITH ANY OTHER SWITCH SETTINGS DESIRED. 
PRESS CONTINUE. 
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4.1.3 DYNAMIC SWITCHES 



H 1 



4.2 



5. 



ERROR SWITCHES 



1. 


SU 


12 


DELETE PRINT OUT/BELL ON ERROR. 


2. 


SU 


13 


DELETE ERROR PRINTOUT. 


3. 


SU 


15 


HALT ON THE ERROR. 


4. 


SU 


08 


GOTO BEGINNING OF THE TEST (ON ERROR). 


5. 


SU 


10 


GOTO NEXT TEST(ON ERROR). 



SCOPE SUITCHES 



1 



SU06 



SU09 



HALT IN ROMCLK ROUTINE BEFORE CLOCKING 
niCRO-PROCESSOR INSTRUCTION. THIS ALLOWS THE 
OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN 



THE STATIC 
CONTINUE TO 
(IF ENABLED 
PRINTED IN 
10 ) SW09 
THEREFORE 



IT IS CLOCKED. HIT 



STATE BEFORE 
RESUME RUNNING. 

BY 'SCOPD ON AN ERROR; IF AN 
FRONT OF THE TEST NO. (EX. *TEST 
IS INCORPORATED IN THAT TEST 
SU09 IS USUALLY THE BEST SWITCH FOR 



3, sun 

4. SUU 



IS 
NO. 
AND 
THE 

SCOPE LOOP (SU14=0. SU10=0. SU09=1 . SU08=0). IF 
SU09 IS NOT ENABELED; AND THERE IS A HARD ERROR 
(CONSTANT): SU08 IS BEST. (SW14=1.0. SU10=0, 
SU09=0, SUOSsI). FOR INTERMITTEMT ERRORS; SU14=1 
WILL LOOP ON TEST REGUARDLESS OF ERROR OR NOT 
ERROR. (SUU^U SU10=0« SU09-0, SU08=1,0) 
INHIBIT INTERATIONS. 
LOOP ON CURRENT TEST. 



STARTING ADDRESS 

STARTING ADDRESS IS AT 000200 THERE 
ADDRESSES FOR THE KMC11 DIAGNOSTICS. 



ARE NO OTHER STARTING 
(SEE SECTION 4.0) 



NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 

IS UNDER ACT11 OR XXDP CONTROL AND WILL ACT 

ACCORDINGLY AFTER ALL AVAILABLE KMCII'S ARE TESTED THE 
PROGRAM WILL RETURN TO 'XXDP* OR 'ACT-II*. 

OPERATING PROCEDURE 

UHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 
SECTION 4.0 WILL BE PRINTED. AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC 



SEQ 0007 
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307 
308 

309 5.2 PROGRAM AND/OR OPERATOR ACTION 
310 

311 THE TYPICAL APPROACH SHOULD BE 
312 

313 1. HALT ON ERROR (VIA SU 15=1) yHEN EVER AN ERROR OCCURS. 

3U 2. CLEAR SU 15. 

315 5. SET SW U: (LOOP ON THIS TEST) 

316 A. SET SU 13: (INHIBIT ERROR PRINT OUT) 
317 

318 THE TEST NUHBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 

319 ERROR MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR 

320 AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 

321 TO KNOy MORE INFORMATION CONCERNING THE ERROR REPORT; LOOK IN 

322 THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 

323 NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF 

324 THE TEST CAN BE DETERMINED. 
325 

326 6. ERRORS 
327 

328 AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND 

329 PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 

330 12=0). IN MOST CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 

331 IN THE THE ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 

332 THE ERROR. 
333 

334 6.2 ERROR RECOVERY 
335 

336 IF FOR SOME REASON THE KHC11 SHOULD 'HANG THE BUS* (GAIN 

337 CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 

338 AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR TO REGAIN 

339 CONTROL OF CPU. IF THIS SHOULD HAPPEN; LOOK IN LOCATION 

340 'TSTNM* (ADDRESS 1202)FOR THE NUMBER OF THE TEST THAT WAS 

341 RUNNIN(i AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS WAY 

342 THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE KNCll WAS DOING 

343 AT THE TINC Of THE ERROR. 
344 

345 7. RESTRICTIONS 
346 

347 7.1 STARTING RESTRICTIONS 
348 

349 SEE SECTION 4. (PLEASE) 

350 STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS 

351 STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH 

352 THE INFORMATION PRINTED ON THE TTY TO COHPLETLY ISOLATE 

353 PROBLEMS. 
354 



CZKCf MACY11 30A(1052) 08-JUL-80 08:27 PAGE 10 ^ „ 

CZKCf.Pll 08-JUL-80 08:24 SEO 0009 

355 
356 

357 7.2 OPERATING RESTRICTIONS 

358 

359 THE FIRST TIME A KMC11 DIAGNOSTIC IS LOADED INTO CORE AND RUN 

360 THE STATUS TABLE MUST BE SET UP. THIS IS DONE BY MANUAL INPUT 

361 (SU00=1> OR BY AUTOSIZING {SWOO=0 AND SU07=0). THEREAFTER 

362 HOWEVER THE STATUS TABLE NEED NOT BE SETUP BY SUBSEQUENT 

363 RESTARTS OR EVEN LOADING THE NEXT KMC DIAGNOSTIC BECAUSE THE 

364 STATUS TABLE IS OVERLAYED. THE CURRENT PARAMETERS IN THE 

365 STATUS TABLE ARE USED WHEN SU07=1 ON START UP. 
366 

367 7.3 HARDWARE CONFIGURATION RESTRICTIONS 

368 

369 KMCTI IOP(M8204)- JUMPER W1 MUST BE IN, 

370 

371 LINE UNIT(M8201)« JUMPERS U1 , U2, AND U4 MUST BE IN. JUMPERS 

372 U3, AND U5 MUST BE OUT. SU8 OF E?6 MUST BE IN THE ON 

373 POSITION. 
374 

375 LINE UNIT (M8202)- JUMPER U1 MUST BE IN. SU8 OF E26 MUST BE 

376 IN THE OFF POSITION. 
377 

378 8. MISCELLANEOUS 

379 

380 8.1 EXECUTION TIME 

381 

382 ALL KHC11 DEVICE DIAGNOSTICS WILL GIVE AN 'END PASS' MESSAGE 

383 (PROVIDING NO ERRORS AND SU12=0) WITHIN 4 MINS. THIS IS 

384 ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 

385 POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 

386 ON THE PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 

387 SYSTEM. 
388 

389 8.2 PASS COMPLETE 

390 

391 NOTE: EVERY TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN 

392 AS If SW11 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO 

393 'VERIFY NO HARD ERRORS' AS SOON AS POSSIBLE. THEREFORE THE 

394 FIRST PASS -EACH TIME PROGRAM IS STARTED- WILL BE A 'QUICK 

395 PASS' UNTIL ALL KMCIVS IN SYSTEM ARE TESTED. WHEN THE 

396 DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 

397 THE PRINT OUT TO BE EXPECTED. 
398 

399 END PASS CZKCF CSR: 175000 VEC: 0300 PASSES: 000001 

400 ERRORS: 000000 
401 

402 NOTE: THE PASS COUNT AND ERROR COUNTS ARE CUMMULITIVE FOR 

403 EACH KHCn THAT IS RUNNING. AND ARE SET TO ZERO ONLY 

404 WHEN THE DIAGNOSTIC IS STARTED. THEREFORE AFTER AN 

405 OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS 

406 FOR EACH KMC11 SINCE THE DIAGNOSTIC WAS STARTED ARE 

407 REFLECTED IN PASSES: AND ERRORS:. 
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8.4 



KEY LOCATIONS 
IPADR (1206) 



CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 



NEXT 



TSTNM 



RUN 



(1442) 
(1202) 
(1500) 



CONTAINS THE ADDRESS OF THE NEXT 
PEFORHEO. 



CONTAINS THE NUMBER 
PE FORMED. 



TEST TO BE 
OF THE TEST NOW BEING 



ICMCR00-KHCR17 
KHST00-KNST17 
(2100)-(2300) 



KNACTV (1470) 



THE BIT IN 'RUN' ALWAYS POINTS TO THE KMC11 

CURRENTLY BEING TESTED. EXAMPLE: (RUN) 

1500/0000000001000000 MEANS THAT KMC 11 NO. 06 
IS THE KMC 11 NOW RUNNING. 



THESE LOCATIONS CONTAIN THE INFORMATION NEEDED 
TO TEST UP TO 16 (DECIMAL) KMC11S SEOUENTIALY. 
THEY CONTAIN THE CSR. VECTOR AMD STATUS 
CONCERNING THE CONFIGURATION OF EACH KMC11. 

EACH BIT SET IN THIS LOCATION INDICATES THAT 
THE ASSOCIATED KHCII WILL BE TESTED IN TURN. 
EXAMPLE: (KMACTV) U 70/0000000000011 111 MEANS 
THAT KMC11 NO. 00.01.02.03.04 WILL BE TESTED. 
EXAMPLE: (KHACTV) 1470/0000000000010001 MEANS 
THAT KMC11 NO. 00.04 WILL BE TESTED. 



KMCSR (2066) 



CONTAINS THE CSR OF THE 
TEST. 



CURRENT KMC11 UNDER 



8.4A 'STATUS TABLE' (2100-2300) 



THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER 
NPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY.^ ^f2J^^" S^'^ Vn 
USER; THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO 
SUIT THE SPECIFIC CONFIGURATION. 

THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION FOR 
TWO KMCirS. THE TABLE CAN CONTAIN UP TO 16 KMCIVS 
FOLLOWING THE MAP IS A DESCRIPTION OF THE BITS FOR EACH HAP 
ENTRY 

MAP OF KMC11 STATUS 

PC CSR STAT1 STAT2 STAT3 

002100 160010 045310 177777 000000 
002110 160020 016320 000000 000000 
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A64 
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484 
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486 

487 

488 

489 



EACH MAP ENTRY CONTAINS 4 WORDS WHICH CONTAIN THE STATUS 
INFORMATION FOR 1 KMCII. THE PC SHOWS WHERE IN CORE MEMORY 
THE FIRST OF THE 4 WORDS IS. IN THE EXAMPLE ABOVE THE FIRST 
KMC'S STATUS IS IN LOCATIONS. 2100, 2102, 2104, AND 2106. THE 
SECOND KMC STATUS IS LOCATED AT 2110, 2112, 2114, AND 2116. 
THE INFORMATION CONTAINED IN EACH 4 WORD ENTRY IS DEFINED AS 
FOLLOWS: 

CSR: CONTAINS KMC11 CSR ADDRESS 

STAT1: BITS 00-08 IS KMCIl VECTOR ADDRESS 
BIT14=1 TURNAROUND CONNECTOR IS ON 
BITUsO NO TURNAROUND CONNECTOR 
BIT13=0 LINE UNIT IS AN M8201 
BIT13=1 LINE UNIT IS AN M8202 
BIT12=1 NO LINE UNIT 
BITS 09-11 IS KMCn BR PRIORITY LEVEL 



STAT2: 
STAT3: 



LOU BYTE IS SWITCH PACI1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC«2 (BM873 BOOl ADD) 



BIT2=0 
BIT2=1 



KHC11-0A 
KHCII-fA 
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4'>0 
491 

492 8.5 METHOD OF AUTO SIZING 

493 

494 8.5.1 FINDING THE CONTROL STATUS REGISTER. 

495 

496 THE AUTO-SIZING ROUTINE FINDS A KMC11 AS FOLLOWS: IT STARTS 

497 AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP 

498 TO AND INCLUDING ADDRESS 167760. IF THE ADDRESS DOES NOT TIME 

499 OUT, THE FOLLOWING IS DONE, THE FIRST CRAM ADDRESS IS WRITTEN 

500 TO A 125252 THEN IT IS READ BACK. IF IT CONTAINS A -1 OR 
5U1 125252 A KHC11 HAS BEEN FOUND, IF NOT, THE ADDRESS IS UPDATED 

502 BY 10 AND THE SEARCH CONTINUES. A -1 INDICATES A KHCII WITH 

503 NO CRAM, A 125252 INDICATES A KHCII WITH CRAM FURTHER TESTS 

504 ARE PERFORMED AT THIS POINT TO DETERMINE WHICH LINE UNIT, IF 

505 ANY, IS INSTALLED, IF A LOOP-BACK CONNECTOR IS INSTALLED AND 

506 VARIOUS SWITCH SETTINGS ON THE LINE UNIT. THIS IS WHY THE 

507 STATUS TABLE MUST BE VERIFIED BY THE USER AND IF ANY OF THE 

508 INFORMATION DOES NOT AGREE WITH THE HARDWARE THE DIAGNOSTIC 

509 MUST BE RESTARTED AND THE QUESTIONS MUST BE ANSWERED. ALL 

510 KMCirS IN TKE SYSTEM WILL BE FOUND BY THE AUTO-SIZER. IF IT 

511 DOES NOT FIND A KMC11 THE DIAGNOSTIC MUST BE RESTARTED AND THE 

512 QUESTIONS ANSWERED. 
513 

514 8.5.2 FINDING THE VECTOR AND BR LEVEL 

515 

516 THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE 

517 INSTRUCTION lOT AND '.^2' (NEXT ADDRESS). THE PROCESSOR 

518 STATUS IS STARTED AT 7 AND THE KMC IS PROGRAMMED TO INTERRUPT. 

519 THE PS IS LOWERED BY 1 UNTIL THE KMC INTERRUPTS, A DELAY IS 

520 MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3 (BECAUSE OF A 

521 BAD KMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL 

522 5 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE 

523 PROBLEM IS FIXED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 

524 CORRECT VECTOR. IF AN INTERUPT OCCURED: THE ADDRESS TO WHICH 

525 THE KMC11 INTERUPTED TO IS PICKED UP AND REPORTED AS THE 

526 VECTOR. NOTE: IF THE VECTOR REPORTED IS NOT THE VECTOR SET 

527 UP BY YOU: THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE 

528 DONE. 
529 

530 8.6 SOFTWARE SWITCH REGISTER 

531 

532 IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A 

533 SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO 

534 ALLOW USER THE SANE SWITCH OPTIONS AS DESCRIBED PREVIOUSLY. 

535 IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 

536 AND IT CONTAINS ALL ONES (177777) THIS SOFTWARE SWITCH 

537 REGISTER IS USED. 

538 CONTROL: 

539 TO OBTAIN CONTROL AT ANY ALLOWABLE TIME DURINf) EXECUTION OF 

540 THE DIAGNOSTIC THE OPERATOR TYPES A CTRL G ON THE CONSOLE 

541 TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED. BY 

542 THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED: 
543 

544 SWR=XXXXXX NEW? 
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545 
546 

547 WHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWARE SWITCH 

548 REGISTER IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN 
5<,9 AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED 

550 TO TYPE ONE OR MORE OF THE LEGAL CHARACTERS: 1) 0 - 7, 2) 

551 LINE FEED(<LF>). 3) CARRIAGE RETURN(<CR>) , OR 4) CONTROL -U 

552 (CTRL U). NO CHECK IS HADE FOR LEGALITY. IF THE INPUT 

553 CHARACTER IS NOT A <LF>, <CR>. OR CTRL U IT IS ASSUMED TO BE 

554 AN OCTAL DIGIT. 

556 TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES 

557 THE NEW DESIRED VALUE IN OCTAL - LEADING ZEROS NEED NOT BE 

558 TYPED. AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF> 

559 DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW. 

560 THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS TYPED. 

561 AT LEAST ONE DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING 

562 PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 
563 

564 WHEN THE INPUT STRING IS TERMINATED WITH A <CR> THE DIAGNOSTIC 

565 WILL CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS 

566 INTERRUPTED. IF A <CR> IS THE ONLY THING TYPED THE PROGRAM 

567 WILL CONTINUE WITHOUT CHANGING THE SSR. THE <LF> DIFFERS FROM 

568 THE <CR> BY RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 

569 ADDRESS 200. 
570 

571 IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO 

572 THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE 

573 PROMPT DISPLAYED (SUR - XXXXXX NEW?). 
574 

575 TO SET THE SSR FOR THE STARTING SWITCHES, FIRST LOAD THE 

576 DIAGNOSTIC. THEN HIT CTRL G. THEN START THE DIAGNOSTIC. 
577 

573 *♦*♦»•»»♦♦«•• •♦•t*»t 

579 

580 NOTE .-FOR IPG'S LINE UNIT H8202-YE USERS. 
581 

582 CABLE DATA TEST:CTEST 60. TEST 613 
583 

584 THESE TESTS WON'T RUN RELIABLY ON LINE UNITS WITHOUT 

585 TERMINATING RESISTENCE. 
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586 
587 

588 APT/ACT/XXOP/SLIDE 
589 

590 

591 

592 THIS DIAGNOSTIC IS APT/ACT/XXOP/SLIDE COMPATIBLE USER WOULD BE 

593 ABLE TO RUN IT UNDER APT/ACT/XXDP ENVIRONMENT. 
59A 

595 NOTE: FOR MANUFACTURING PURPOSE ONLY ITS DESCRIBED HOW TO RUN 

596 UNDER APT ENVIRONMENT. 
597 

598 
599 

600 ETA6LE SETTING FOR APT TO RUN UNDER APT 

601 

602 

603 

604 FIRST PASS TIME: 

606 LONGEST TEST TIME: 

607 

608 ADDITIONAL TEST TIME: 

609 

610 ALL THE ABOVE PARAMETERS ARE DEPENDENT ON PARTICULAR 

611 DIAGNOSTICS AND SHOULD BE LOADED AT THE TIME OF SETTING 

612 ETABLE. THERE IS NO DEFAULT TIME SET UP. 

614 SOFTWARE ENVIRONMENT :001 ENVIRONMENT MODE:200 

616 SWITCH 1:-SH0ULD BE USED AS NORMAL SWITCH REGISTER. 
617 

618 SWITCH 2: -NOT USED. 
619 

620 CPU OPT IONS: -NOT USED. 

622 MEMORY TYPE 1 :-BITS<2:4>:=BITS <12:U> OF STAT1 OF OEV:0. 

623 

624 MAXIMUM A00RESS:-BITS<17:19>:*BITS<12:U> OF STATl OF 0EV:1 

626 BITS<2:4>:=BITS <12:U> OF STATl OF 0£V:2 

628 BITS<10:12>:sBITS<12:U> OF STATl OF 0EV:3 

629 

630 IN THE SAME MANNER 

632 MEMORY TYPE 2 MAXIMUM ADDRESS:-6£TS STAT1<12:H> OF DEVICE 

633 4.5.6,7. 

635 MEMORY TYPE 3 MAXIMUM ADORESS:-G£TS STATU12:H> OF DEVICE 

636 8.9.10.11. 

638 MEMORY TYPE 4 MAXIMUM ADORESS:-GETS STAT1<12:U> OF DEVICE 

639 12.13.14,15. 

641 INTERRUPT VECTOR liflRST DEVICE RECEIVE VECTOR. 
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642 

644 REST OF THE OEVlCE(ICHC'S) VECTOR SHOULD BE SET UP SEQUENTIALLY 

645 IN INCREHENTS OF )0. 
646 

647 BUS PRIORITY :KMC'S PRIORITYCSHOULD BE SAME FOR ALL KHC'S UNDER 

648 TEST). 
649 

650 INTERRUPT VECTOR 2:N0T USED. 

651 

652 BUS PRIORITY :NOT USED. 

655 

654 BASE ADDRESS:FIRST DEVICE CSR ADDRESS. 

656 REST SHOULD FOLLOW SEQUENTIALLY 

658 IN INCREMENTS OF 10. 

659 

660 DEVICE MAP: AS DESCRIBED IN APT MANUAL. 

661 

662 CONTROLLER SPECIFIC CODE 1:-N0. OF DEVICES UNDER TEST. 

663 

664 CONTROLLER SPECIFIC CODE 2:-N0T USED. 

665 

666 DEVICE DESCRIPTOR WORD 0:STAT2 OF FIRST DEVICE. 

667 

668 . . 

669 

670 . . 

671 

672 TO 
673 

674 . . 

675 

676 . . 

678 DEVICE DESCRIPTOR WORD 1S:STAT2 OF 16TH DEVICE. (KMC) 

679 

680 

681 9.0 HISTORY 

682 

683 THIS DIAGNOSTIC WAS UPDATED TO DETECT FOR THE CONDITION OF V.35 

684 AND M8201. IN THIS CONIFURATION, RING WILL NOT BE LOOPED BACK 

685 AND SHOULD NOT BE TESTED FOR. 

686 S 
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08-JUL-80 

VW wWk WV 


687 




688 




689 

WW ' 




690 




691 




692 




693 




69<> 




695 




696 




697 




698 




699 




700 




701 




702 




703 




704 




705 




706 




707 




708 




709 




710 




711 




712 




713 




7U 




715 




716 




717 




718 




719 




720 




721 




722 




723 


001200 


724 




725 




726 




727 




728 


00001 1 


729 


000012 


730 


000015 


751 


000200 


752 


177776 


733 




734 


177774 


735 


177772 


736 


177570 


737 


177570 


738 




739 




740 


000000 


741 


000001 


742 


000002 



SEQ 0016 



.TITLE CZtCCF 
;»C0PYRIGHT (C) 1976 
;*DIGITAL EQUIPMENT CORP. 
;*nAVNARD, MASS. 01754 

; •PROGRAM BY DINESH GORAOIA 



;*THIS PROGRAM WAS 
; •PACKAGE (MAINDEC 



ASSEMBLED USING THE PDP-11 
■11-0ZQAC-C3>, JAN 19. 1977, 



MAINDEC SYSMAC 



.-•CZKCF BIT STUFF MD L TSTS 

;^C0PYRI6HT 1976. DIGITAL EQUIPMENT CORP.. MAVNARD, MASS. 01754 

.-STARTING PROCEDURE 

:LOAD PROGRAM 

:LOAD ADDRESS 000200 

;SUR=0 AUTOSIZE KMC11 

;SW07=1 USE CURRENT KMC11 PARAMETERS 

;SW00=1 INPUT NEW KMCll PARAMETERS 

;PRESS START 

.-PROGRAM yiLL TYPE "CZKCF BIT STUFF MD L TSTS" 
;PR06RAM WILL TYPE STATUS HAP 

.-PROGRAM WILL TYPE "R" TO INDICATE THAT TESTING HAS STARTED 
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
:AND THEN RESUME TESTING 

.-SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 
.SBTTL BASIC DEFINITIONS 



.-•INITIAL ADDRESS 
STACK= 1200 
.EQUIV EMT, ERROR 
.EQUIV lOT. SCOPE 



OF THE STACK POINTER ••• 1200 *•* 



;;BASIC 
:;BASIC 



DEFINITION 
DEFINITION 



OF 
OF 



.••MISCELLANEOUS 



HT= 
LF = 
CR= 
CRLF = 
PS= 
.EQUIV 
STKLMT= 
PIRQ= 

DsyR= 

DDISP= 



11 
12 
15 
200 

177776 
PS.PSW 
17^774 
177772 
177570 
177570 



DEFINITIONS 

::CODE FOR 
;;CODE FOR 
;;CODE FOR 
;;CODE FOR 
PROCESSOR 



ERROR 
SCOPE 



TAB 



CALL 
CALL 



HORIZONTAL 
LINE FEED 
CARRIAGE RETURN 
CARRIAGE RETURN-LINE 
STATUS WORD 



FEED 



;;STACK LIMIT REGISTER 
::PROGRAH INTERRUPT REQUEST REGISTER 
:;HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



; •GENERAL PURPOSE REGISTER DEFINITIONS 
R0= XO :; GENERAL REGISTER 

R1= XI ;;6ENERAL REGISTER 

R2= X2 ::G£NERAL REGISTER 



CZKCF MACtll 



C7tf^ P1 1 


QM* Jill -An 

WW JvL. WW 




0Q0003 

W WW Ww J 




000004 




000005 

W WWW W J 




000006 

WWW WWW 


747 


000007 

WW www ' 


748 


000006 

WWW WWW 


749 


000007 

wwwww • 


750 




751 




752 


000000 

V w wv w 


753 


000040 

w w w w~ w 


754 


000100 

www 'WW 


755 


000140 

WWW ■ ~ w 


756 


000200 


757 


000240 


758 


000300 


759 


000340 

WW w w 


760 




761 




762 


100000 

1 wwwww 


763 


040000 

W W w w 


764 


020000 


765 


010000 

W ' w w w w 


766 


004000 


767 


002000 


768 


001000 

WW 'WWW 


769 


000400 

w w w~ w w 


770 


000200 

W W Wfc WW 


771 


0001 00 


772 


000040 


773 


000020 


774 


000010 


775 


000004 


776 


000002 


777 


000001 


778 




779 




780 




781 




782 




783 




784 




785 




786 




787 




788 




789 




790 


100000 


791 


040000 


792 


020000 


793 


010000 


794 


004000 

w w ~ w w w 


795 


002000 


796 


001000 


797 


000400 


798 


000200 



30A(1052) 08-JUL-80 
08:24 



08:27 PAGE 18 

BASIC DEMNITIONS 



E 2 



SEO 0017 



R3= 
R4= 
R5= 
R6- 
R7= 
SP= 
PC= 



X3 
X4 
X5 
X6 
X7 
X6 
X7 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



GtNERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
STACK POINTER 
PROGRAM COUNTER 



.■•PRIORITY LEVEL DEFINITIONS 



PPO= 
PR1 = 
r92= 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= 



0 
40 
100 
140 
200 
240 
300 
340 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 5 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



.••"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15= 100000 

SW14= 40000 

SW13= 20000 

SW12= 10000 

SW11= 4000 

SW10= 2000 

SW09= 1000 

SW08= 400 

SW07= 200 

SW06= 100 

SW05= 40 

SW04= 20 

SW03= 10 

SW02= 4 

SW01= 2 

SWOO= 1 

.EQUiV SW09,SU9 

.EQUIV SW08,SW8 

.EQUIV SW07.SW7 

.EQUIV SW06,SW6 

, EQUIV SW05,SW5 

.EQUIV SW04,SUA 

.EQUIV SW03,SW3 

.EQUIV SW02,SW2 

.EQUIV SWOUSUl 

.EQUIV SWOO.SWO 

;^DATA BIT DEFINITIONS 

BIT15= 100000 

BIT14= 40000 

BIT 13= 20000 

BIT12= 10000 

BlTlls 4000 

BIT10= 2000 

BIT09= 1000 

BIT08= 400 

BIT07= 200 



(BlTOO TO BIT15> 
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nft* 111! «ftn 

UO JUL OU 


7QQ 


VvV 1 WW 


OUv 


0000^0 




000020 


AO? 

OvC 


00Q010 


Ov w 


000004 




000002 

Www wC 


SOS 


000001 

wwVwV 1 


Ovw 




807 




808 




809 




810 




811 




812 




81S 




814 




81 S 




816 




817 




818 


000004 

wW w w W^ 


819 


000010 

WwWW 1 w 


820 


000014 

Www ' ~ 


821 


000014 

WWWW ' ~ 


822 


00001 4 

WWWW ' ~ 


82'? 


000020 

W WW w t W 




000024 

WWWW b ~ 


APS 


000030 




000034 

WWWW 


827 


000060 

www www 


828 


U00064 


829 


000240 


830 




831 




832 




833 




834 




835 




836 




837 


005746 


838 


005726 

WW ^ ' V 


839 


010046 


840 


012600 


841 


024646 


842 


022626 


843 




844 




845 




846 
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BASIC DEFINITIONS 



F 2 



SEO 0018 



BIT06- 
BITOSs 
BIT04» 
BIT03- 
BIT02= 
BIT01= 
BIT00= 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.•■QUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



100 

40 

20 

10 

4 

2 

1 

BIT09.BIT9 
BIT08,B1T8 
BIT07,BIT7 
BIT06.BIT6 
BIT05.BIT5 
BIT04.BIT4 
BIT03,BIT3 
BIT02.BIT2 
BIT01.BIT1 
BITOO.BITO 



;«BASIC "CPU" TRAP VECTOR 
ERRVEC= 4 
RESVEC= 10 
TB1TVEC=14 
TRTVEC= 14 
BPTVEC= 14 
I0TVEC= 20 
PURVEC= 24 
EHTVEC= 30 
TRAPVEC=34 
TKVEC- 60 
TPVEC* 64 
PIRQVEC=240 



: INSTRUCTION DEFINITIONS 



ADDRESSES 

TINE OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) ••SCOPE** 
POWER FAIL 

EMULATOR TRAP (EHT) ••ERROR** 

"TRAP" TRAP 

TTt KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



PUSH1 SP=5746 

P0P1SP=5726 

PUSHR0=10046 

POPR0= 12600 

PUSH2SP-24646 

POP2SP=22626 

.EQUIV ENT.HLT 



.•DECREMENT PROCESSOR STACK 1 WORD 

: INCREMENT PROCESSOR STACK 1 WORD 

;SAVE RO ON STACK 

;RESTORE RO FROM STACK 

:DECi?£MENT STACK TWICE 

.-INCREMENT STACK TWICE 

;BASIC DEFINITION OF ERROR CALL 



CZlCCf 


HACY11 


30A(105 


CZKCF.PIl 08 


-JlJL-80 


&A7 






848 






849 






BSD 






851 






852 






853 






854 






855 






856 






857 




000000 


858 


000000 


000000 


859 






860 






861 






862 




000020 


863 


000020 


004134 


864 


000022 


000340 


865 


000024 


007126 


866 


000026 


000340 


867 


000030 


006512 


868 


000032 


000340 


869 


000034 


006414 


870 


000036 


000340 


871 






872 






873 






874 






875 




000040 


876 




000046 


877 


000046 


004070 


878 




000052 


879 


000052 


000000 


880 




000040 


881 






882 




000174 


883 


000174 


000000 


884 


0001 76 


000000 


885 






886 




000200 


887 


000200 


000137 


888 






889 






890 




001000 


891 


AA 4 AAA 

001000 


005200 


(2) 


001010 


044502 


(2) 






892 




177570 


893 




177570 
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TRAPCATCHER FOR UNEXPECTED INTERUPTS 



SEQ 0019 



TRAPCATCAER FOR ILLEGAL INTERRUPTS 
THE STANDARD "TRAP CATCHER" IS PLACED 
BETWEEN ADDRESS 0 TO ADDRESS 776. 
IT LOOKS LIKE "PC+2 HALT". 



.WORD 0,0 
.•STANDARD INTERRUPT VECTORS 



=20 



.SBTTL 



SSCOPE ; SCOPE LOOP HANDLER. 

PR7 ; SERVICE AT LEVEL 7. 

SPURDN :P0WER FAIL HANDLER 

PR7 ;SERVICE AT LEVEL 7 

$ERR0R ; ERROR HANDLER 

PR7 ;SERVICE AT LEVEL 7 

STRAP ;GENERAL HANDLER DISPATCH SERVICE 

PR7 ;SERVICE AT LEVEL 7 

ACT11 HOOKS 



.•HOOKS REQUIRED BY ACT11 
$SVPC=. 
.=46 
SENDAD 

.=52 

.WORD 0 
.=$SVPC 

.=174 
DISPREG:0 
SUREG: 0 



.•SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET L0C.52 TO ZERO 
;; RESTORE PC 



;SOFTUARE DISPLAY REGISTER 
.•SOFTUARE SUITCH REGISTER 



.=200 



.=1000 
041513 HTITLE: 
052123 

DSUR 
DDISP 



.START 



;60 TO START OF PR06RAH 



.ASCII <200><12>/CZKCF/<200> 
.ASCI2 /BIT STUFF ND L TSTS/<200> 

177570 
177570 
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894 
895 
896 
897 
898 
899 

900 001200 

901 001200 

902 001200 000000 

903 001202 000 

904 001203 000 

905 001204 000000 

906 001206 000000 

907 001210 000000 

908 001212 000000 

909 001 2U 000 

910 001215 001 

911 001216 000000 

912 001220 000000 

913 001222 000000 

914 001224 000000 

915 001226 000000 

916 001230 000000 

917 001232 000000 

918 001234 000 

919 001235 000 

920 001236 000000 

921 001240 177570 

922 001242 177570 

923 001244 177560 

924 001246 177562 

925 001250 177564 

926 001252 177566 

927 001254 000 

928 00.255 002 

929 001256 012 

930 001257 000 

931 001260 000000 
932 

933 001262 000000 

934 001264 000000 

935 001266 000000 

936 001270 000000 

937 001272 000000 

938 001274 000000 

939 001276 000000 

940 001300 000000 

941 001302 000000 

942 001304 000000 

943 001306 000000 

944 001310 000000 

945 001312 077 

946 001313 015 

947 001314 000012 
948 

949 
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COMMON TAGS 

.SBTTL COMMON TAGS 



.••THIS TABLE CONTAINS VARIOUS 
;*USED IN THE PROGRAM. 

.=1200 



»CMTAG: 






.UORD 


0 


STSTNM: .BYTE 


0 


SERFLG 


.BYTE 


0 


t ! CNT : 


.WORD 


0 


SLPADR 


.WORD 


0 


SLPERR 


.WORD 


0 


SERTTL 


.WORD 


0 


SITEMB 


.BYTE 


0 


SERMAX 


.BYTE 


1 


$ERRPC 


.WORD 


0 


SGDADR 


.WORD 


0 


S6DADR 


.WORD 


0 


SGDDAT 


.WORD 


0 


SBDDAT 


.WORD 


0 




.WORD 


0 




.WORD 


0 


SAUTOe 


.BYTE 


0 


SINTAG 


.BYTE 


0 




.WORD 


0 


SUR: 


.WORD 


DSUR 


DISPLAY: .UORD 


DDISP 



STICS: 
STKB: 
$TPS: 
$TPB: 
SNULL : 
SFILLS 
SFILLC 
STPFLG 
SREGAD 

SREGO: 
SREGI 
$RE62: 
$RE63: 
$REG4; 
$REG5: 
$THPO! 
STMP1 
$THP2: 
$TW»3: 
$TNP4! 
STIMES: 
SQUES: 
SCRLF: 
$LF: 



177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 



0 
2 

12 

0 

0 



.WORD 0 

.UORD 0 

.WORD 0 

.WORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 
0 

.ASCII /?/ 

.ASCII <15> 

.ASCIZ <12> 



.SBTTL APT MAILBOX-ETABLE 



COMMON STORAGE LOCATIONS 



;; START OF COMMON TAGS 

;: CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

;; CONTAINS SUBTEST ITERATION COUNT 

;;CONTAINS SCOPE LOOP ADDRESS 

:; CONTAINS SCOPE RETURN FOR ERRORS 

:; CONTAINS TOTAL ERRORS DETECTED 

;; CONTAINS ITEM CONTROL BYTE 

CONTAINS MAX. ERRORS PER TEST 

;;CONTAINS PC OF LAST ERROR INSTRUCTION 

;: CONTAINS ADDRESS OF 'GOOD' DATA 

;; CONTAINS ADDRESS OF 'BAD' DATA 

CONTAINS 'GOOD' DATA 

;; CONTAINS 'BAD' DATA 
;;RESERVED— NOT TO BE USED 

;, -AUTOMATIC MODE INDICATOR 
:; INTERRUPT MODE INDICATOR 

;;ADDRESS OF SUITCH REGISTER 
.-.-ADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
;;TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 

:;TTY PRINTER BUFFER REG. ADDRESS 

;: CONTAINS NULL CHARACTER FOR FILLS 

:; CONTAINS # OF FILLER CHARACTERS REQUIRED 

.-.-INSERT FILL CHARS. AFTER A "LINE FEED" 

;;"TERM1NAL AVAILABLE" FLAG (BIT<07>=0=YES) 

;; CONTAINS THE ADDRESS FROM 

;:UHICH ($REGO) UAS OBTAINED 

:; CONTAINS ( (SREGAD) >0) 

CONTAINS ( (SREGAD) «2) 
;: CONTAINS ( (SREGAD) «4) 
:; CONTAINS ( (SREGAD) >6) 

CONTAINS ( (SREGAD) >10) 
;: CONTAINS ( (SREGAD) t 12) 
.-;USER DEFINED 
;;USER DEFINED 
;:USER DEFINED 
;;USER DEFINED 
::USER DEFINED 
.-.-MAX. NUMBER OF ITERATIONS 
.-.-QUESTION MARK 
; .-CARRIAGE RETURN 
.-.-LINE FEED 
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APT MA1L80X-ETABLE 



I 2 



SEQ 0021 



950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 



001316 
001316 
0C1320 
001322 
001324 
001326 
001330 
001332 
001334 
001336 
001336 
001337 
001340 
001342 
001 344 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

002 
000 
000000 
000000 
000000 



001346 
001347 



001352 
001353 
001 354 
001356 
001357 
001360 
001362 
001363 
001364 
001 366 
001370 
001372 
001374 
0013/6 
001400 
001402 
001404 
001406 
001410 
001412 
001414 
001416 
001420 
001422 



000 
000 



001350 000000 



000 
000 
000000 
000 
000 
000000 
000 
000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.EVEN 

SIAIL: 

SHSGTY 

SFATAL 

STESTN 

$PASS: 

SDEVCT: 

SUNIT: 

SMSGAD: 

f^SGLG: 

$E TABLE 

SENV: 

SENVn: 

SSUREG: 

SUSUR: 

SCPUOP: 

• ♦ 

;* 
■ ♦ 

• ♦ 

* 

■ « 

inAMSI : 
SMTYPI : 

• ♦ 

• ♦ 
* 

• ♦ 

SMADRI : 



$MAMS2 
$MTYP2 
$nADR2 

snAns3 

$MTYP3 

$nADR3 

SMAnS4 

$HTYP4 

$nADR4 

$VECT1 

$VECT2 

S8ASE 

$DEVM 

$CDU1 

$CDU2 

$DDUO 

SDDU1 

$DDU2 

$DDU3 

$DDU4 

SDDU5 

$DDU6 

$DDU7 

$DDU6 







• ADT MA 1 1 Qny 




AndU 1 T 


•MCCCAflC TVDC mhC 
,nC9dAuC 1 Trc LUl/C 




k( kl kt 


■ CATAl CDDHD MIIMQCD 




W 1 C 5 1 N 


t TP CT Ul IMQPD 






, r Ad9 LUUN 1 








.WORD 


AUNIT 


■ 1/0 UNIT NUMBER 


.UORD 


AMSGAD 


■;HESSAGE ADDRESS 


.WORD 


AMSGLG 


'.'MESSAGE LENGTH 






>;APT ENVIRONMENT TABLE 


.BYTE 


AENV 


ENVIRONMENT BYTE 


.BYTE 


AENVM 


■; ENVIRONMENT MODE BITS 


.WORD 


ASUREG 


>:APT SWITCH REGISTER 


.WORD 


AUSUR 


■:USER SWITCHES 


.WORD 


ACPUOP 


•;CPU TYPE. OPTIONS 



.BYTE 
.BYTE 



.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



AMAMS1 
AHTYP1 



.WORD AMADR1 



AMAMS2 

AMTYP2 

AMADR2 

AMAHS 3 

AMTYP3 

AMADR3 

AMAMSA 

AMTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 

ACDW1 

ACDW2 

ADDWO 

ADDW1 

ADDW2 

ADDW3 

ADDW4 

ADDW5 

ADDW6 

ADDW7 

ADDW8 



BITS 15-11=CPU TYPE 

11/04=01,11/05=02,11/20=03.11/40=04.11/45=05 
11/70=06, PDQ=07,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=fL0ATIN6 POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
::HIGH ADDRESS,M.S. BYTE 
;;MEM. TYPE.BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIP0LAR=002 
500 NSEC MOS=003 
HIGH ADDRESS, BLK/rl 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "TYPE" ABOVE 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE, BLK#2 
MEM. LAST ADDRESS,BLK«2 
HIGH ADDRESS,M.S.BYTE 
M£M.TYPE.BLKf3 
MEM. LAST ADDRESS. BLK#3 
HIGH ADORESS,M.S.BYTE 
MEM. TYPE. BLKf^ 
MEM. LAST ADDRESS.BLKfA 
INTERRUPT VECTORfl.BUS PR10R1TY«1 
INTERRUPT VECTORffZBUS PRIORI TY#2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 

CONTROLLER DESCRIPTION W0RD«1 
CONTROLLER DESCRIPTION U0RD#2 
DEVICE DESCRIPTOR UOROfO 
DEVICE DESCRIPTOR WGRDfl 
DEVICE DESCRIPTOR U0RD#2 
DEVICE DESCRIPTOR U0RD#3 
DEVICE DESCRIPTOR W0RD«4 
DEVICE DESCRIPTOR W0RD«5 
DEVICE DESCRIPTOR W0RD#6 
DEVICE DESCRIPTOR W0RD#7 
DEVICE DESCRIPTOR W0RD#8 
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APT MAILBOX-ETABLE 



SEO 0022 



1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

10U 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

102A 

1025 

1026 

1027 

1026 

1029 

1030 

'031 

1032 

1033 

103A 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 



001424 
001426 
001430 
001432 
001434 
001436 
001440 



001442 



001442 
001444 



001446 
001450 
001452 
001454 
00US6 
001460 
00U62 
001464 
001466 
001470 
001472 
001474 
001476 
001500 

001502 
001504 



001506 

001510 
001511 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000000 
000001 
000001 
000001 
000001 
000000 

002072 
002276 



000 
001510 
000 
000 



$DDU9: 
$DDU10 
SDDUn 
$DDW12 
$DDU13 
SDDWH 
SDDU1 5 



SETEND: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 



ADDU9 

ADDW10 

ADDW11 

ADDW12 

ADDU13 

ADDU14 

ADDU1 5 



; DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 

: DEVICE 



DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 



U0RD/r9 

WORD/riO 

W0RD«11 

U0RD/ri2 

U0RD«13 

UORD/rU 

UORDfl 5 



PROGRAM CONTROL PARAMETERS 



NEXT: 
LOCK: 



.WORD 
.WORD 



0 
0 



PROGRAM VARIABLES 



STRTSW: 

STAT: 

CLKX: 

HASKX: 

SAVSP: 

SAVPC : 

ZERO: 

ONE: 

MEMLIM: 

KMACTV: 

KMNUM: 

SAVACT: 

SAVNUM: 

RUN: 

CREAM: 
MILK: 



.WORD 
.WORD 
.WORD 
.WORD 
.^JORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.WORD 
.EVEN 
.WORD 
.WORD 



0 
0 
0 
0 
0 
0 
0 

1 

0 

1 
1 
1 
1 
0 

KM.MAP-6 
CNT.MAP-4 



; PROGRAM CONTROL FLAGS 

'iNIFLG: .BYTE 0 

.EVEN 

LOKfLG: .BYTE 0 

OV.FLG: .BYTE 0 

.EVEN 



ADDRSS OF NEXT TEST TO BE EXECUTED 
ADDRESS FOR LOCK CURRENT DATA 



SWITCHES AT START OF PROGRAM 
KM STATUS UORD STORAGE 



STACK POINTER STORAGE 
PROGRAM COUNTER STORAGE 



HIGHEST LOCATION FOR NPR'S 
KMC11 SELECTED ACTIVE 
OCTAL NUMBER OF KMCII'S 
ORIGINAL ACTIVE DEVICES. 
WORKABLE NUMBER. 
POINTER TO RUNNING DEVICES 

TABLE POINTER 
TABLE POINTER 



PROGRAM INITIALIZING FLAG 



LOCK ON CURRENT TEST FLAG 
QUICK VERIFY FLAG 

ON FIRST PASS OF EACH KMCll ITERATIONS WILL BE SJPPRES 



f 



J 



001512 
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1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 



K 2 
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ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORHATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
*N0TE1: IF SITEHB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

*N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS; 



SEQ 0023 



SERRTB: 
.EVEN 



EM 
DH 
DT 
DF 







■ * Fit 




onoooA 

UUUUUU 


n 

V 


(\f\^ K^L 
UU 1 3 1 * 


uuuuuu 


u 


f\f\^ CIA 


OOAOOO 


n 

V 


AA1 Kon 


MJCWC 


FM1 


uU 1 jcc 


MjjcC* 


DHl 


Uv 1 3c'» 


MjjjJv 


0T1 


vv 1 JCO 


O^PI ?0 
\JjC I cU 


EM2 


001 ^TO 

MM 1 J jM 


U J JcH} 


DH? 


001 <tX9 


O^^SA? 

MjjjOC 


0T2 


001 ^"KL 


MJC 1 Oj 




001 ^XA 
vv 1 7^0 


MjjjMj 


un J 


001 S40 

WV 1 ^■•w 


OT^AOO 


0T3 


001 Si? 
Uv 1 jhc 


vjCCC I 


EM4 


001 ^LL 

Uv 1 JM** 


0TXXA1 
Ujjj** I 


DH4 


001 SiA 

UU > PHU 


V J JO ■ c 


DT4 


001 ^sn 

UU 1 J J\J 


vjCCC' 


EM4 


001 SS? 

UU 1 J 


033401 


DH5 


001554 


033624 


DT5 


001556 


032271 


EM5 


001560 


033303 


DH3 


001562 


033642 


DT6 


001564 


032321 


EM6 


001566 


033433 


DH6 


001570 


033624 


DT5 


001572 


032340 


EM7 


001574 


000000 


0 


001576 


000000 


0 


001600 


032365 


EM10 


001602 


000000 


0 


001604 


000000 


0 


001606 


032570 


EM11 


001610 


033303 


DH3 


001612 


033600 


DT3 


001614 


032617 


EMI 2 


001616 


033433 


DH6 


001620 


033624 


DT5 


001622 


032643 


EMI 3 


001624 


033433 


DH6 


001626 


033624 


DT5 



POINTS TO THE ERROR MESSAGE 

;; POINTS TO THE DATA HEADER 

;; POINTS TO THE DATA 

POINTS TO THE DATA FORMAT 



;; DOES NO^ APPLY IN THIS DIAGNOSTIC, 



ERROR 1 
ERROR 2 
ERROR 3 
ERROR 4 
ERROR 5 
ERROR 6 
ERROR 7 
ERROR 10 
ERROR 11 
ERROR 12 
ERROR 13 
ERROR 14 
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1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 



001630 
001632 
001634 
001636 
001640 
001642 
001644 
001646 
001650 
001652 
001654 
001656 
001660 
001662 
001664 
001666 
001670 
001672 
001674 
001676 
001700 
001 702 
001704 
001706 
001710 
001712 
001714 



032703 
033303 
033642 
032753 
033341 
033612 
032774 
000000 
000000 
033010 
000000 
000000 
032570 
033433 
033624 
033054 
033303 
033660 
033075 
033303 
033600 
033054 
000000 
000000 
033112 
033303 
033600 
002034 



002034 

000024 
000024 000200 

000044 
000044 002034 

002034 



002034 
002034 
002036 
002040 
002042 
002044 
002046 



000000 
001316 
000132 
000137 
000137 
000052 
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ERROR POINTER TABLE 

EMU 

DH3 

DT6 

EMI 5 

DH4 

DT4 

EM16 

0 

0 

EMI 7 

0 

0 

EM11 

DH6 

DT5 

EM20 

DH3 

0T7 

EM21 

0H3 

0T3 

EM20 

0 

0 

EM22 
DH3 
0T3 



L 2 

ERROR 15 
ERROR 16 
ERROR 17 
ERROR 20 
ERROR 21 
ERROR 22 
ERROR 23 
ERROR 24 
ERROR 25 



SEO 0024 



.=2034 

.SBTTL APT PARAMETER BLOCK 



.-SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



.SX=. ::SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ;;FOR APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR POINT TO APT HEADER BLOCK 

.=.$X ;;RESET LOCATION COUNTER 

SETUP*APT*PARAMETER BLOCK AS DEFINED IN THE APT-PDPll DIAGNOSTIC 
INTERFACE SPEC. 



$APTHD 
SHIBTS 
$NBADR 
STSTH: 
$PASTH 
SUNITN 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

SNAIL 

90. 
95. 
95. 



;TUQ HIGH BITS OF 18 BIT MAILBOX ADDR. 
.'ADDRESS OF APT MAILBOX (BITS 0-15) 
;RUN TIM OF LONGEST TEST 

:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
:ADOITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 



SETEND-SNAIL/2 ;;LENGTH MA I LBOX-E TABLE (WORDS) 
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M 2 



CZKCf. P11 08 


-JUL-80 08:24 


APT PARAMETER 


"1158 










1 1 59 






. t^Mr 4 i 

;Knc 1 1 


r AAlT n Al 

CONTROL 


1 160 






ff 




1161 










1 4 Z. 1 

1 162 


002050 


000000 


C T A T 1 . 

STATl : 


A 

V 


4 4 Z. T 

1163 


002052 


000000 


r T A T . 

STAT2: 


A 
0 


11 6A 


AA1AC i 

002054 


000000 


5TAT3: 


A 
0 


1165 










11 66 






• vMr 1 1 

;KnCl 1 


\IC t TAD 


1 1 or 






ff 




n oo 










1 169 


AAOAC/. 

002056 


000000 




A 

0 


1 1 70 


AAOAXA 

002060 


000000 


KnRLVL : 


A 


1 1 r 1 


AAOAXO 

002062 


000000 


Kni VcL : 


A 

u 


1170 
M f d 


AAOAX/ 

00206** 


000000 


Kni LVL : 


A 

u 


l1 75 


AAOAZ.X. 

002066 


000000 


KnidK : 


A 
U 


117/ 

117^ 


AA0A7A 
002070 


000000 


KMCSRH: 


0 


1 1 7C 

1 1 f i 


AA0rt70 

UU2U f 2 


000000 


KHCTL: 


0 


11 70 


AA0A7/. 

002074 


000000 


KMPO^ : 


0 


1 1 77 

1177 


n/)on74L 
0020 7o 


000000 


KnP06: 


0 


1 1 7B 

1 1 f O 










1 1 TQ 






:TEnP STORAGE 


1 1 fiA 

1 ISO 










1 1 01 

1 181 










1 1 DO 

1 182 






.TEMP: 


0 


1 1 fli 

1183 






;.=.*40 


1 184 










1 1 dc 

1 185 






:KMC11 


STATUS 


1 1 fl^ 






• 




1 1 B7 

1 lor 










1 loo 




002100 


.=2100 




1 1 BO 

1 loV 


AAOI AA 

U02100 




KM. NAP: 




1 1 oo 

1 ItU 


AA01 AA 

UU21 00 


000001 


KMCROO: 


.BLKU 


1 1 VI 


Artoi no 
002102 


000001 


KMS100: 


.BLKU 


1 1 QO 

119Z 


AA01 A/ 

002104 


000001 


KMS200: 


.BLKU 




nAOl AA 
UU£ lUO 


000001 


KMS300: 


.BLKU 


1 1 tXL 
1 l7H 










1 1 t5 


0U2 1 10 


000001 


KMCR01 ' 


.BLKU 


1 1 AZ 

1 1t6 


AAOI 1 0 

0021 12 


000001 


KMS101 


.BLKU 


1 1 07 


U021 14 


000001 


KMS201 


.BLKU 


1 ItO 




000001 


KMS301 


.BLKU 


1 1 0O 

1 Itt 










1 cw 


AA01 OA 

0021 20 


000001 


KMCR02 


.BLKU 


1 tUl 


AA01 00 

0021 22 


000001 


KMS102 


.BLKU 


1 OAO 

1 cOc 


AA01 0/. 

002124 


000001 


KMS202 


.BLKU 


\C\J3 


AA01 OA 
0021 20 


000001 


KMS302 


.BLKU 


1 OA/. 

liO* 










1 OAC 


AA01 TA 

0021 30 


000001 


KMCR03 


.BLKU 


1 OAiL 


AA01 TO 

0021 32 


000001 


KHS103 


- .BLKU 


1 0A7 
l^Of 


AA01 XL 

002134 


000001 


KMS203 


.BLKU 


1 Cl/O 


0071 M 


000001 


KMS303 


: .BLKU 


1209 










1210 


002U0 


000001 


KMCR04 


: .BLKU 


1211 


002U2 


000001 


KHS104 


: .BLKU 


1212 


002U4 


000001 


KHS204 


: .BLKU 


1213 


002U6 


000001 


KMS304 


: .BLKU 



SEQ 0025 



POINTER TO KMC11 RECEIVER INTERRUPT VECTOR 

POINTER TO KMC11 RECEIVER INTERRUPT SERVICE PS 

POINTER TO KMC11 TRANSMITTER INTERRUPT VECTOR 

POINTER TO KMC11 TRANSMITTER INTERRUPT SERVICE PS 

POINTER TO KMC11 CONTROL STATUS REGISTER 

POINTER TO KMC11 CONTROL STATUS REGISTER HIGH BYTE. 

POINTER TO KMC11 CONTOL OUT REGISTER 

POINTER TO KMC11 PORT RE6ISTER(SEL 4) 

POINTER TO KMC11 PORT RE6ISTER(SEL 6) 



CONTROL STATUS REGISTER FOR KMC11 NUMBER 00 
VECTOR FOR KMC11 NUMBER 00 
DDCMP LINEf FOR KMC11 NUMBER 00 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 01 
VECTOR FOR KMC 11 NUMBER 01 
DDCMP LINE/V FOR KMC11 NUMBER 01 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 02 
VECTOR FOR KMC11 NUMBER 02 
DDCMP LINE* FOR KMC11 NUMBER 02 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KHC11 NUMBER 03 
VECTOR FOR KMC11 NUMBER 03 
DDCMP L1NE« FOR KMC11 NUMBER 03 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 04 
VECTOR FOR KMC 11 NUMBER 04 
DDCMP LINE* FOR KMC 11 NUMBER 04 
3RD STATUS UORD 



CZKCF 


MACY11 


30A(105 


CZKCF.PII 08 


-JUL-80 


12H 






1 T 1 c 


0021 50 


000001 


iZlo 


0021 52 


00O001 


\2\7 


AA^ 1 C / 

002154 


000001 


IZ 10 


AAOI C* 

002156 


000001 








1220 


AA01 X.A 

002160 


000001 




AAOI AO 

002162 


000001 


122c 


AAOI A/. 

0021 OH 


000001 


1 223 


AAOi AA 

002100 


000001 


122*1 






1 225 


AAOI 7A 
0021 f 0 


000001 


1220 


AAOI 70 

0021 fc 


000001 


1007 

122f 


AA01 7L 

0021 f •» 


000001 


1 ooa 
1 22B 


AAOI 7A 

0021 rO 


000001 


1 ooo 
122V 






1 OTA 

1 23U 


AAOOAA 

002 2U0 


000001 


1 071 

1 231 


AAOOAO 

002202 


000001 


1 010 

1232 


AAOOA/. 

00220*1 


000001 


1 Oil 

1233 


AAOOAA 

002200 


000001 


1 01A 

1 23*» 






1 OH 
1235 


AA001 A 


000001 


1 01*. 

1230 


A.'\001 0 

002212 


000001 


1 017 

123' 


AAOOl /. 

00221*1 


000001 


1 01B 

1 230 


AAOOl A 

002210 


000001 


1 01Q 

1 23t 






1 OAA 

1 2*»U 


AAOOOA 

002220 


000001 


10/1 

1 2*il 


AA 00 00 

002222 


000001 


1 OAO 




000001 


1 2*»3 


AAOOOA 
002220 


000001 










AA001A 
00223U 


000001 


1 O^A 

1 2*»0 


AA0010 


000001 


1 0^7 


ArtOOX£ 


000001 


1 O^fl 


AA001A 
00£c50 


000001 


1 9i.O 






1 9cn 
1 cjv 


0022'»U 


000001 


1 0C1 
1 25 1 


AAOOAO 
0022««2 


000001 


1 0^0 
1 252 


AA09££ 


000001 


1 CJJ 


(A/cc*iO 


000001 








1 c55 


00cc5U 


000001 


1 c50 




000001 


125f 


AAOO<(Z. 


000001 


1 OCA 

1 c50 


nA55CA 


000001 


1 OCO 






1 cOU 


AAOOAA 


000001 


1 3A1 
IcOl 


AAOOAO 
002202 


000001 


1 OAO 

1 202 


AAOOA/, 
00220^ 


000001 


Ic03 


An77AA 
UvccOO 


000001 








1265 


002270 


000001 


1266 


002272 


000001 


1267 


002274 


000001 


1268 


002276 


000001 


1269 
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APT PARAMETER BLOCK 



N 2 



SEQ 0026 



KMCR05 
KMS105 

Kns20S 

KnS305 

KncR06 
Knsi06 

KnS206 
KnS306 

K1CR07 
KMS107 
ICMS207 
KMS307 

KMCRIO 
KMS110 
KnS210 
KMSSIO 

KHCR11 
KHS111 
KHS211 
KnS311 

ICHCR'2 
ICMS112 
KnS212 
Kns312 

KMCR13 
KHS113 
KnS213 
KMS313 

KMCRU 
KMSIU 

Kns2U 

KMS3U 

KMCR15 
KHS115 
KNS215 
KNS315 

KMCR16: 
KHSIU: 
KnS216: 
KRS316: 

KHCR17: 
KHS117: 
KnS217: 
KHS317: 



.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 



CONTROL STATUS REGISTER FOR KHC1 1 NUMBER 05 
VECTOR FOR KMC11 NUMBER 05 
DDCMP LINE# FOR KMC11 NUMBER 05 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 06 
VECTOR FOR KMC11 NUMBER 06 
DDCMP LINE# FOR KMC11 NUMBER 06 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 07 
VECTOR FOR KMC11 NUMBER 07 
DDCMP LiNE/r FOR KMC11 NUMBER 07 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 10 
VECTOR FOR KMC11 NUMBER 10 
DDCMP LINE« FOR KMC 11 NUMBER 10 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 11 
VECTOR FOR KMC11 NUMBER 11 
DDCMP LiNEf FOR KMC11 NUMBER 11 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KHC'll NUMBER 12 
VECTOR FOR KMC11 NUMBER 12 
DDCMP LINEf FOR KMC11 NUMBER 12 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KHC11 NUMBER 13 
VECTOR FOR KMCII NUMBER 13 
DDCMP LINE* FOR KMC11 NUMBER 13 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER U 
VECTOR FOR KMC11 NUMBER U 
DDCMP L1NE# FOR KNC11 NUMBER U 
3RD STATUS UORD 

CONTROL STATUS REGISTER FUR KNC11 NUMBER 15 
VECTOR FOR KHCII NUMBER 15 
DDCMP LINEf FOR KMCII NUMBER 15 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KHC11 NUMBER 16 
VECTOR FOR KMC11 NUMBER 16 
DDCMP LINE* FOR KMC11 NUMBER 16 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KNC11 NUMBER 17 
VECTOR FOR KMC11 NUMBER 17 
DDCMP LINEf FOR KHC11 NUMBER 17 
3RD STATUS UORD 
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CZHCF 


HACY11 


30A(10i>2) 08-JUL-80 
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czicrF.pii 08 


"JUL Ow UO.cM 


APT PARAMFTI 


1271 








1272 








1273 








1274 








1275 


002302 




TNT MAP- 


1276 


002302 


uuuuuu 


PACTOO: 0 


1277 


002304 


nnnnoo 


Cn^ 1 Vv > V 


1278 






PACT01: 0 


1279 


002306 


uuoouu 


1280 


002310 




FPf im • 0 


1281 






P^CT02: 0 


1262 


002312 




1283 


002314 


nnnnnn 


C ~ V 1 VC • V 


1284 






PACT03: 0 


1285 


002316 


nnnnon 


1286 


002320 


nooooo 


FftrTOt' Q 

b *^ V 1 w J • V 


1287 






PACT 04: 0 


1288 


002322 


\J\J\J\JvV 


1289 


002324 


nnnnon 


FR('T04- 0 

U V 1 • w 


1290 






PACT05: 0 


1291 


002326 


nnnnnn 


1292 


002330 


nnnnnn 


FRCTOS* 0 


1293 






PACT06: 0 


1294 


002332 


nniinnn 


1295 


002334 


nnnnnn 




1296 






PACT07: 0 


1297 


002336 




1298 


002340 




FRrT07* 6 

C~ W 1 V * • V 


1299 






PATTIO- 0 


1 xnn 

1 500 


0Ucj4^ 


nnnnnn 


1301 


002344 


nnnnnn 


FRCT10: 0 


1302 








1303 


002346 


000000 


PACT11: 0 


1304 


002350 


nnnnnn 


ERCT11 ■ 0 


1305 
1306 


002352 


nnnnnn 


PACT12: 0 


1307 


002354 


nnnnnn 


FRCT12' 0 


1308 






PACT13' 0 


1309 


002356 


nnnnnn 


1310 


002360 


nnnnnn 


FftCT13* 0 


1311 








1312 


002362 


nnnnnn 


PACT14: 0 


1313 


002364 


nnnnnn 


FRCT14: 0 


1314 






PACT15: 0 


1315 


002366 


wUUUwU 


1316 


002370 


nnnnnn 


FRCT1S: 0 


1317 






PACT16: 0 


1318 


002372 


nnnnnn 


1319 


002374 


nnnnnn 


FRCT16' 0 


1320 






PACT17: 0 


1321 


002376 


000000 


1322 


002400 


000000 


ERCT17: 0 


1323 









C 3 

SEQ 0028 

ERROR COUNT TABlE 



;PASS COUNT FOR KMC 11 NUMBER 00 
.•ERROR COUNT FOR KMC11 NUMBER 00 

;PASS COUNT FOR KMC11 NUMBER 01 
.•ERROR COUNT FOR KMC11 NUMBER 01 

;PASS COUNT FOR KMC11 NUMBER 02 
; ERROR COUNT FOR KMC 11 NUMBER 02 

.'PASS COUNT FOR KMC11 NUMBER 03 
:lRROR count FOR KMC 11 NUMBER 03 

;PASS COUNT FOR KMC11 NUMBER 04 
; ERROR COUNT FOR KMC 11 NUMBER 04 

;PASS COUNT FOR KMC11 NUMBER 05 
: ERROR COUNT FOR KMC 11 NUMBER 05 

;PASS COUNT FOR KMC 11 NUMBER 06 
: ERROR COUNT FOR KMC 11 NUMBER 06 

;PASS COUNT FOR KMC11 NUMBER 07 
:ERROR COUNT FOR KMC11 NUMBER 07 

.•PASS COUNT FOR KMC11 NUMBER 10 
: ERROR COUNT FOR KMC 11 NUMBER 10 

;PASS COUNT FOR KMC11 NUMBER 11 
;ERROR COUNT FOR KMC11 NUMBER 11 

;PASS COUNT FOR KMC11 NUMBER 12 
: ERROR COUNT FOR KMC11 NUMBER 12 

;PASS COUNT FOR KMC 11 NUMBER 13 
: ERROR COUNT FOR KMC 11 NUMBER 13 

.•PASS COUNT FOR KMCIl NUMBER 14 
;ERROR COUNT FOR KMC11 NUMBER 14 

.PASS COUNT FOR KMCIl NUMBER 15 
.-ERROR COUNT FOR KRC11 NUMBER 15 

;PASS COUNT FOR KMCll NUMBER 16 
.•ERROR COUNT FOR KMC11 NUMBER 16 

;PASS COUNT FOR KMC 11 NUMBER 17 
.•ERROR COUNT FOR KNC11 NUMBER 17 
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CZKCF MACY11 30A(1052) 08-JUL-80 08:27 PAGE 30 
CZKCF.Pll 08-JUL-80 08:24 APT PARAMETER BLOCK 

1324 
1325 
1326 
1327 
1328 
1329 

FORMAT OF STATUS TABLE 
15 U 13 12 11 10 09 08 07 06 05 04 03 02 01 00 



I I 




I 




I 


I 




I 




I 




1 


I 




I 




I 






I 




I 




I 




I 




1 


I c 


0 




H 


T 




R 




0 




L 






R 




E 




G 


I 




S 




T 




E 




R 


I 


I I 




I 




I 


I 




I 




I 




I 


I 




I 




I 






I 




I 




I 




I 




1 




I I 




I 




1 


I 




I 




I 




1 


I 




1 




1 






1 




I 




I 




1 




I 


1 • I 


* 


1 


• 


1 • 


I 


• 


1 


* 


I 


t 


I • 




• 




V 




I 


C 




T 




0 




R 




t 


I 


I I 




I 




I 


I 




I 




I 




I 


I 




I 




I 






I 




1 




I 




I 




I 




I I 




1 




I 


1 




I 




I 




I 


I 




I 




I 






1 




I 




I 




I 




I 


1 • 


B 




n 






A 




D 




D 


* 


I 


t 




L 




I 


N 




E 








ff 






I 


I 1 


I 




I 


I 




I 




I 




I 


I 




I 




I 






I 




I 




I 




I 




I 


























































I ~r 




I 




I 


I 




I 




I 




I 


I 




I 




i 






I 




1 




I 




I 




I 


I I 




I 




I 


I 




1 




I 




1 


I 




I 










I 




I 


• 


I 




I 


• 


I 


I I 




I 




I 


I 




I 




I 




I 


I 




I 




I 




I 


I 




I 




1 




1 




I 



CSR 



STAT1 



STAT2 



STATS 



DEFINITION OF FORMAT 



CSR: CONTAINS KHCII CSR ADDRESS 

STATI: BITS 00-08 IS KHCII VECTOR ADDRESS 

BIT14=1 ???? TURNAROUND CONNECTOR IS ON 
BIT14=0 NO TURNAROUND CONNECTOR 
BIT13=0 LINE UNIT IS AN N8201 
BIT13=1 LINE UNIT IS AN N8202 
BIT12=1 NO LINE UNIT 
BITS 09-11 IS KHC11 BR PRIORITY LEVEL 

STAT2: LOW BYTE IS SWITCH PACII (DDCHP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC«2 (BN873 BOOT ADD) 

STAT3: BITO-1 DO FREE RUNNING TESTS ON KMC 

(MUST BE SET TO A ONE MANUALLY [PROGRAMS G AND H ONLY]) 

BIT2=0 DHC11-DA (RS232C) 
6IT2=1 DMC11-FA (V.35) 
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1581 










1382 










1385 










138A 










1385 










1386 










1387 










1388 










1389 


002402 


012737 


000340 


177776 


1390 


002410 


012706 


001200 




1391 


002414 


012737 


007126 


000024 


1592 


002422 


013737 


001472 


001476 


1393 


002430 


005037 


011544 




1594 


002434 


105037 


001205 




1595 


002440 


105037 


001511 




1396 


002444 


012737 


002070 


001502 


1397 


002452 


012737 


002276 


001504 


1398 


002460 


012737 


100000 


001500 


1399 


002466 


012700 


002302 




HOO 


002472 


005020 






1401 


002474 


022700 


002402 




U02 


002500 


001374 






1403 


002502 


005037 


001216 




1404 


002506 


012737 


000001 


001202 


1405 


002514 


012737 


002402 


001206 


1406 










1407 


002522 


132737 


000001 


001336 


1408 


002530 


001404 






UG9 


002532 


013737 


001540 


000176 


1410 


002540 


000423 






1411 


002542 


013746 


000006 




1412 


002546 


013746 


000004 




1413 


002552 


012737 


002606 


000004 


1414 


002560 


012737 


177570 


001240 


1415 


002566 


012737 


177570 


001242 


1416 


002574 


022777 


177777 


176436 


1417 


002602 


001402 






1418 


002604 


000407 






1419 


002606 


022626 






1420 


002610 


012757 


000176 


001240 


1421 


002616 


012737 


000174 


001242 


1422 


002624 


012657 


000004 




1423 


002630 


012657 


000006 




1424 


002634 


105757 


001506 




1425 


002640 


001006 






1426 


002642 


022757 


004070 


000042 


1427 


002650 


001402 






1428 


002652 


104401 


001000 




1429 


002656 


004737 


011540 




1450 


002662 


017757 


176552 


001446 


U31 


002670 


005757 


000042 




1432 


002674 


001402 






1433 


002676 


005057 


001446 




1434 


002702 


052737 


000001 


001446 


1435 


002710 


001012 






1436 


002712 


105737 


001446 





27 PAGE 32 

PROGRAM INITIALIZATION 



AND START UP. 



SEO 0031 



.START: 



25$: 



5$: 



6S: 



7$: 



20$: 



;PR0GRAn INITIALIZATION 

;L0CK OUT INTERRUPTS 

.-SET UP PROCESSOR STACK 

;SET UP POWER FAIL VECTOR 

; CLEAR PROGRAM CONTROL FLAGS AND COUNTS 

.TYPE TITLE MESSAGE 



MOV #540. PS 

MOV fSTACK.SP 

MOV f$PURDN,af24 

MOV KMNUH,SAVNUM 

CLR SUFLG 

CLRB $ERFLG 

CLRB QV.FLG 

MOV «KM.HAP-10, CREAM 

MOV fCNT.MAP-4,MILK 

MOV #BIT15,RUN 

MOV fCNT.MAP,RO 

CLR (RO)* 

CMP fCNT.MAP+IOO.RO 

BNE 25$ 

CLR $ERRPC 

MOV #1,$TSTNM 

MOV #.START.$LPAOR 

BITB #1.$ENV 

BEQ 3$ 

MOV $SUREG,SUREG 

BR 6$>2 

MOV 8#6,-(SP) 

MOV a#4,-(SP) 

MOV «6$,a#4 

MOV #1 77570. SUR 

MOV #177570,01 SPLAY 

CMP f-l.iSUR 

BEQ 6$t2 

BR 7$ 

CMP (SP)*.(SP)* 

MOV fSUREG.SUR 

MOV fOISPREG, DISPLAY 

MOV (SP)*.a#4 

MOV (SP)*.af6 

TSTB INIFL6 

BNE 20$ 

CMP f$ENDAD«8f42 

BEQ 20$ 

TYPE ,HTITLE 

JSR PC.CKSUR 

MOV aSUR.STRTSU 

TST at 42 

BEQ .^6 

CLR STRTSW 

BIT ISWOO. STRTSW 

BNE 1 7$ 

TSTB STRTSU 



LOCK OUT INTERRUPTS 
SET UP STACK 

SET UP POWER FAIL VECTOR 

SAVE NUMBER OF DEVICES IN SYSTEM. 

CLEAR SOFT TYPEOUT FLAG 

CLEAR ERROR FLAG 

ZERO QUICK VERIFY FLAG 

GET MAP POINTER. 

GET PASS COUNT MAP POINTER 

POINT POINTER TO FIRST DEVICE. 

PASS COUNT POINTER TO RO 

CLEAR TABLE 

DONE YET? 

KEEP GOING 

CLEAR LAST ERROR POINTER 
SET UP FOR TEST 1 
SET UP FOR POWER FAIL BEFORE 
TESTING STARTS 

IS IT RUNNING UNDER APT? 

IF NOT CHECK FOR TYPE OF SWITCH REGISTER. 

LOAD SOFTWARE SWITCH REG. 

60 SET UP SOFTWARE SWITCH REG. 
SAVE CURRENT VECTORS 

SET UP FOR TIMEOUT 

SET SWR TO HARD SWR ADDRESS 

SET DISPLAY TO HARD SWR ADDRESS 

REFERENCE HARDWARE SWITCH REGISTER 

IF s -1 USE SOFT SWR ANYWAY 

IF IT EXISTS AND NOT = -1 USE HARD SWR 

ADJUST STACK 

POINTER TO SOFT SWR 

POINTER TO SOFT DISPLAY REG 

RESTORE VECTORS 

HAS INITIALIZATION BEEN PERFORMED 
BR IF YES 

IF ACT-11 AUTOMATIC MODE, DON'T TYPE ID 

;TYPE TITLE MESSAGE 

: CHECK FOR SOFT SWR 
: STORE STARTING SWITCHES 
;IS IT RUNNING IN AUTO NODE? 
'BR IF NO 

•IF YES. CLEAR SWITCHES 

:IF SW00=1. QUESTIONS ARE ASKED. 

:BR IF SWOO-1 

;BIT7=1?? 
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K37 
K58 
U39 
K40 
HAl 
UA2 
U45 
U44 
U45 
UA6 
UA7 
UA6 
U49 
HSO 
1451 
US2 
1453 
1454 
1455 
1456 
14S7 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
U75 
1476 
1477 
1478 
1479 
1460 
1481 
1482 
1483 
1484 
U85 
1486 
1487 
1488 
1489 
1490 
1491 
1492 



SEO 0032 



00? 7 If* 

wwC > 1 u 


1 00007 








RPl 


1 71 


On Ir aWUi-u 


00?7?0 


005737 


001470 






T^T 






00?7?4 

wwC f d 


WW 1 wC ' 








DniC 


161 


DU tc ycc 


00?7?A 


104401 


010731 

W 1 W f J \ 






TVPF 


MhATT 

nunc 1 J 


NO DFUtrFC CFl FTTTn 


00P73? 


000000 

wwwVwV 








HAL T 




^TOP IMF ^HOU 


wwC f J"* 


000776 

WWW r r U 








RR 

on 








105737 

1 W ^ r J 9 


001336 

WW 1 J 




17S' 

9 9 9 • 


TSTB 


tFN*J 


IS IT IINDFR APT DUMP MODF'' 


002742 


001405 

WW ' ~ W V 








Db V 


27$ 


YES CHECK IF APT SI7FD IT'> 


002744 


132737 


000001 

W W WW W 1 


001336 

WW ' J 




BI TB 


#1 tENV 


IS IT IJNDFR Q W OR RtIN MODF^ 


002752 


001012 

WW 1 W 1 b 








BNF 


30S 


YES NEEDS ONLY APT SIZING 


002754 


000406 

WWW" WW 








BR 


33S 


NO NEEDS REGULAR AUTO SIZE 


002756 


105737 


001337 

WW *JJ9 




2^t- 

b 9 • 


TSTB 


tENVM 

• b ¥ O 1 


IS IT SIZED BY APT' 


002762 


100406 

1 WW^WW 








on i 


30$ 


YFS MFFDS ONI Y APT SIJIMf^ 


002764 


042737 

W^C 9 Jf 


000001 

www ■ 


001446 

WW * ~ ~ w 




BIC 


fSUOO STRTSU 


> SIZE ONLY IN AUTO MODE 


002772 


004737 

WW" 9^9 


012236 

W I Cb Jw 




33t- 


JSR 


PC AUTO SI7E 


' GO DO THE AUTO SIZE 


002776 


000402 

W W W~ Wb 








BR 


16$ 


GO PRINT THE MAP 


003000 

WWW 


004737 

WW~ 9^9 


013716 

W ■ ^ • i w 




30t- 

^W 9 • 


JSR 


PC.APT.SIZE 


GO DO THE APT SIZING. 


003004 


105737 


001 506 

WW 1 ^ WW 




16S: 


TSTB 


INIFLG 


'FIRST TIME? 


003010 


001410 








BEQ 


21S 


;BR IF YES 


003012 

W^w • w 


105737 


001446 

WW • ~ ~ w 






TSTB 


STRTSW 


;IF USING SAME PARAMETERS DONT 


003016 


100431 








BIO I 


U 




003020 

W^W w 


032737 

W^b 9 J9 


000006 

WW WW WW 


001446 

WW ■ ~ ~ w 




BIT 


#BIT1!BIT2. STRTSW; IS TEST NO. OR LOCK SELECTED 


003026 


001403 

WW 1 ~W J 








BEQ 

Wb V 


24$ 


;IF NO THEN TYPE STATUS 


003030 


000424 

WWW" b ~ 








BR 


1$ 


;IF YES 00 NOT TYPE STATUS 


003032 


105137 


001506 

WW ' ^ww 




21S: 


COMB 

V W' «w 


INIFLG 


;SET FLAG 


003036 

WW 


104401 

1 W~~W I 


010077 

W ' WW f ' 




24S- 

b~ • • 


TVPF 

lire 


.XHEAO 


;TYPE HEADER 


003042 

WW ^ W~ 


012704 


002100 

W Wb ■ WW 






MOV 

nw " 


#KH.MAP.R4 


;SET POINTER 


003046 

WW <^ W~ w 


010437 

W • W^ ^0 9 


001276 

WW ■ b ' w 




5$: 


MOV 


R4,$TMP0 
(R4)*,$THP1 


:SET ADDRESS 


003052 


012437 


001 300 

W ■ ^wW 






MOV 


;SET CSR 


003056 

ww^w 


001411 








BEQ 


1$ 


;ALL DONE IF ZERO 


003060 


012437 


001302 






MOV 


(R4)*.$TMP2 


;SET STAT1 


003064 


012437 


001304 






MOV 


(R4)*«$TMP3 


;SET STAT2 


003070 


012437 


001306 






MOV 


(R4)*,$TflP4 


;SET STAT3 


003074 


104416 








CONVRT 




;TYPE OUT STATUS MAP 


003076 


011206 








XSTATQ 






003100 


000762 








BR 


5$ 




003102 


012700 


002100 




IS: 


NOV 


fflCM.NAP.RO 


;R0 POINTS TO STATUS TABLE 



•AUTO SIZE TEST 

•THIS TEST VERIFYS THAT THE KMC11S AMD/OR KNC11S ARE AT THE CORRECT FLOATING 
•ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS. IT IS NOT A HARDWARE ERROR. 
•CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ.OH.DQ.OU.OUP.LK.DNC.DZ.KMC). 
•IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE KNC11. THE FIRST 
• KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT 
•ADDRESS 760000. 



003106 


013746 


000004 




MOV 


af4.-(SP) 


SAVE LOC 4 


003112 


013746 


000006 




MOV 


aff6,-(SP) 


;SAVE LOC 6 


003116 


005037 


000006 




CLR 


af6 


CLEAR VEC*2 


003122 


005037 


001302 




CLR 


$TMP2 


CLEAR FLAG 


003126 


011037 


002066 


AUSTRT: 


MOV 


(RO),KMCSR 


GET NEXT KMC CSR 


003132 


001510 






3EQ 


AUDONE 


BR IF DONE 


003154 


012737 


003240 000004 


2$: 


MOV 


INQ0EV,af4 


SET UP FOR TIMEOUT 


003142 


012703 


000010 


3$: 


MOV 


#10, R3 


R3 IS COUNT OF DEVICES 
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K95 


003U6 


012702 


003342 


K9A 


003152 


012701 


160010 


U95 


003156 


005711 




K96 


003160 


1 1 1 204 




U97 


003162 


060401 




U98 


003164 


005201 




U99 


003166 


040401 




1500 


003170 


005703 




1501 


003172 


001371 




1502 


003174 


012737 


003244 


1503 


00320' 


005711 




1504 


003204 


0201 37 


002066 


1505 


003210 


001403 




1506 


003212 


062701 


000010 


1507 


003216 


000771 




1508 


003220 


062700 


000010 


1509 


00322; 


062701 


000010 


1510 


003230 


011037 


002066 


1511 


003234 


001447 




1512 


003236 


000761 




1515 


003240 


122245 




15U 


003242 


000002 




1515 


003244 


005737 


001502 


1516 


003250 


OOiOU 




1517 


003252 


104401 




1518 


003254 


011107 




1519 


003256 


012737 


005244 


1520 


003264 


104417 




1521 


003266 


005522 




1522 


003270 


104401 




1523 


003272 


011154 




1524 


003274 


012757 


177777 


1525 


003502 


010157 


001264 


1526 


003506 


104416 




1527 


005310 


005550 




1528 


003512 


104401 




1529 


005514 


011175 




1530 


005516 


022626 




1531 


005520 


000757 




1532 


005522 


000001 




1553 


005524 


006 


002 


1534 


005526 


001460 




1535 


005550 


000002 




1536 


005552 


006 


004 


1537 


005554 


001264 




1538 


005556 


006 


002 


^539 


005340 


002066 




1540 


005342 


007 




1541 


005545 


017 




1542 


005544 


007 




1543 


005545 


007 




1544 


005546 


007 




1545 


005547 


007 




1546 


005550 


007 




1547 


005551 


007 




1548 


005552 


00? 





H 3 

08:27 PAGE 34 

PROGRAM INITIALIZATION AND START UP. 



SEQ 0033 



000004 





MOV 


fDFUTAB R? 


R2 IS DEVICE TABLE PONTER 




HU V 


#160niO Rl 


START UlTH ADDRESS 160010 


1 1 HAT • 


T^T 


V n 1 / § 






nu vo 




IF NO TIKtOUT GET NEXT ADDRESS 




Ann 




IN Rl 






R 1 






Ri r 


R4 R1 






TST 


R3 


ANY MORE DEVICES TO CHECK FOR? 




RNF 


FLOAT 


BR IF YES 






fFRR a#4 


OK ONLY KMC'S ARE LEFT. SET UP 






(Rl ) 


CHECK KMC ADDRESS 






Rl KMCSR 


DOES IT MATCH 




RFQ 




BR IF YES 




ADD 


«10 Rl 


GET NEXT KMC ADDRESS 




BR 


FY 


DO IT AGAIN 


OK: 


ADD 
HI/ 1/ 


flQ RO 


SKIP TO NEXT KMC CSR 




ADD 


#10 Rl 


- GET NEXT KMC ADDRESS 




MOV 

nu f 


(RC) KMCSR 


■ GET NEXT KMC CSR 




BEQ 


AUDONE 


; BRANCH IF ALL DONE. 




BR 


FY 


; DO IT AGAIN. 


NHDFV * 


CMPB 


{R2)> -(R5) 


;0N TIMEOUT, INC R2, DEC R5 


RTI 




;SLPADR 


ERR: 


TST 


$TnP2 


;CHECK FLAG IF = 0 TYPE HEADER 


BNE 

TYPE 

CONERR 


IS 


;SKIP HEADER 

;TYPE0UT HEADER MESSAGE 

■CONFIGURATION ERROR'.!!! 




MOV 


fFRR SAVPC 


-SAVE PC FOR TYPE OUT 




CNVRT 


-TYPE OUT ERROR PC 




ERRPC 








TYPE 




ItyPE rest OF HEADER 




CNERR 








NOV 


f-1,STHP2 


•SET FLAG SO IT ONLY GETS TYPED 


IS: 


nov 


Rl .SREGl 


:SAVE Rl FOR TVPEOUT 




CONVRT 






CONTAB 


.'TYPE CSR VALUES 


3$: 


TYPE 
KNCN 






4$: 


CHP 


(SP)*,(SP)* 


; ADJUST STACK 




BR 


OK 


:BR TO GET OUT 


ERRPC: 


1 

.BYTE 
SAVPC 


6.2 




CONTAB: 


2 

.BYTE 
SREGI 
.BYTE 
KMCSR 


6,4 
6,2 




DEVTAB: 


•BYTE 


7 


;DJ 




.BYTE 


17 


:DH 




.BYTE 


7 


;DQ 




.BYTE 


7 


:DU 




.BYTE 


7 


;DUP 




.BYTE 


7 


;LK 




.BYTE 


7 


:DMC 




.BYTE 


7 


;DZ 




.BYTE 


7 


.-KMC 
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15^.9 




003354 






.EVEN 




1550 


003354 








AUDONE 




1551 


003354 


012637 


000006 




1$: 


HOV 


1552 


003360 


012637 


000004 






MOV 


1553 


003364 


032737 


000010 


001446 




BIT 


1554 


003372 


001422 








BEO 


1555 


003374 


104401 


010017 






TYPE 


1556 


003400 


005000 








CLR 


1557 


003402 


000000 








HALT 


1558 


003404 


027737 


175630 


001474 




CMP 


1559 


003412 


101404 








BLOS 


1560 


003414 


104401 


007672 






TYPE 


1561 


003420 


000000 








HALT 


1562 


003422 


000776 








BR 


1563 


003424 


017737 


175610 


001470 


2$: 


MOV 


156A 


003432 


013700 


001470 






MOV 


1565 


003436 


000000 








HALT 


1566 


003440 


012700 


M M A V M M 

000300 




3S: 


HOV 


1567 


003444 


012701 


A A A V A 

000302 






MOV 


1568 


003450 


OIO12O 






4$: 


MOV 


1569 


003452 


005021 








CLR 


1570 


003454 


022021 








CMP 


1571 


003456 


022700 


AAA MAA 

001000 






CMP 


1572 


003462 


00 i 372 








BNE 


1573 














1574 










;TEST 


START 


1575 














1576 














1577 


003464 


012706 


A A 4 A A 

001200 




.BEGIN 


: MOV 


1578 


003470 


013746 


AM A A A J 

000006 






HOV 


1579 


003474 


013746 


A A A A A M 

000004 






MOV 


1580 


003500 


005000 








r I A 

CLR 


1581 


003502 


012737 


003546 


A A A A A J 

000004 




MOV 


1582 


003510 


005037 


A A A A A M 

000006 






^ I A 

CLR 


1583 


003514 


005720 






6$: 


TST 


1584 


003516 


022700 


157776 






CMP 


1585 


003522 


001374 








BNE 


1586 


003524 


162700 


007776 






SUB 


1587 


003530 


010037 


001466 




7$: 


MOV 


1588 


003534 


012637 


A A A A A i 

000004 






MOV 


1589 


003540 


012637 


A A A A A £ 

000006 






MOV 


1590 


003544 


000413 








BR 


1591 


003546 


022626 






2>: 


Mrs 

CMP 


1592 


003550 


162700 


000004 






SUB 


1593 


003554 


162700 


007776 






SUB 


1594 


003560 


022700 


A V A A A A 

030000 






CMP 


1595 


003564 


001361 








BNE 


1596 


003566 


012700 


037400 






MOV 


1597 


003572 


000756 








BR 


1598 


003574 


012737 


M M M V J f\ 

000340 


4 £ 

Mfffb 


4 A* 

10S: 


MOV 


1599 


003602 


03273f 


A AAA A/ 
"00UU4 


AA 1 i / ^ 




D 1 T 


1600 


003610 


001406 








BEQ 


1601 


003612 


104401 


007716 






TYPE 


1602 


003616 


012737 


000240 


004146 




MOV 


1603 


003624 


000403 








BR 


1604 


003626 


013737 


004360 


004146 


IS: 


MOV 



I 3 

ZATION AND START UP. 



SEQ 0034 



(SP)*.a#6 
(SP)*,a#4 

#SU03,STRTSU 
3S 

,MNEU 
RO 

aSyR.SAVACT 
2$ 

.MERR3 
.-2 

aSUR.KMACTV 
KMACTV.RO 

#300, RO 
#302, R1 
R1 ,(R0)+ 
(RD* 

(R0>*,(R1)* 
#1000, RO 
4$ 

RESTART 



#STACIC,SP 

a#6.-(sp> 
a#4,-(sp> 

RO 

f2S.a#4 

a«6 

(R0>* 

#1 57776. RO 
61 

#7776. RO 

RO.MEMLIM 

(SP>*.a#4 

(SP)^,a#6 

10$ 

(SP)*,(SP)* 
#4,R0 
#7776.RO 
#30000, RO 
7» 

#37400. RO 
7$ 

#340.PS 

#BIT2.STRTSy 

IS 

.MLOCK 

#NOP,TTST 

3S 

BRU.TTST 



RESTORE LOC 6 

RESTORE LOC 4 

SELECT SPECIFIC DEVICES'? 

BR IF NO. 

TYPE THE MESSAGE. 

ZERO DATA LIGHTS 

WAIT FOR USER TO TELL WHAT DEVICES TO RUN 
IS THE NUMBER VALID? 
BR IF NUMBER IS OK. 
TELL USER OF INVALID NUMBER. 
STOP EVERY THING. 
RESTART THE PROGRAM AGAIN. 
GET NEW DEVICE PATTERN 
SHOW THE USER WHAT HE SELECTED. 
CONTINUE DYNAMIC SWITCHES. 
PREPARE TO CLEAR THE FLOATING 
VECTOR AREA. 300-776 
;START PUTTING "PC*2 - HALT" 
:1N VECTOR AREA. 
;POP POINTERS 
;ALL DONE?? 
;BR IF NO. 



SET UP STACK 
SAVE LOC 6 
SAVE LOC 4 
START AT 0 
SET UP FOR TIME OUT 
TO AUT0S12E MEMORY 
CHECK ADDRESS IN RO 
IS IT AT LEAST 28r 
BR IF NO 

SAVE 2K FOR MONITORS 

STORE MEMORY LIMIT 

RESTORE LOC 4 

RESTORE LOC 6 

CONTINUE 

ADJUST STACK 

GET LAST GOOD ADDRESS 

SAVE 2K FOR MONITORS 

IS IT 8R? 

BR IF NO 

IF 8K DON'T SAVE 2K 

LOCK OUT INTERRUPTS 

CHECK FOR LOCK ON TEST 

BR IF NO LOCK DESIRED. 

TYPE LOCK SELECTED. 

SET UP TO LOCK 

CONTINUE ALONG. 

PREPARE NORMAL SCOPE ROUTINE 
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1605 


003634 


012737 


011606 


001206 


3S: 


MOV 


ICYCLE.SLPADR 


;START AT "CYCLE" FIND WHICH DEVICE TO TEST 


1606 


003642 


032737 


000002 


001446 


4S: 


BIT 


«SW01,STRTSW 


;IS TEST NO. SELECTED? 


1607 
1608 


003650 


001002 








BNE 


5S 


;BR IF YES 


003652 


104401 


007642 






TYPE 


,MR 


;TYPE R 


1609 


003656 


000177 


175324 




5$: 


JMP 


aSLPADR 


.•START TESTING 



CZKCF HACY11 30A(10S2) 08-JUL-80 08:27 PAGE 37 
CZKCF.P11 C8-JUL-80 08:24 END OF PASS ROUTINE 



K 3 



1610 

1611 

1612 

1613 

16U 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 003662 

1624 003662 

1625 003664 

1626 003670 

1627 003674 

1628 003700 

1629 003704 

1630 003710 

1631 003714 

1632 003720 

1633 003724 

1634 003730 

1635 003734 
1656 003740 

1637 003744 

1638 003750 

1639 003754 

1640 003762 

1641 003766 

1642 003774 

1643 004000 

1644 004004 

1645 004006 

1646 004014 

1647 004022 

1648 004026 

1649 004032 

1650 004036 

1651 004044 

1652 004046 

1653 004050 

1654 004052 

1655 004054 

1656 004056 

1657 004060 

1658 004064 

1659 004066 

1660 004070 

1661 004072 

1662 004074 

1663 004076 

1664 004100 

1665 004100 



;END OF PASS 
;TYPE NAME OF TEST 
;UPDATE PASS COUNT 
.•CHECK FOR EXIT TO ACT-11 
.•RESTART TEST 

.SBTTL END OF PASS ROUTINE 



.•^INCREMENT THE PASS NUMBER (SPAS 
.••IF THERES A MONITOR GO TO IT 
.•♦IF THERE ISN'T JUMP TO CYCLE 

SEOP: 











DC CC T 






AA1 X'il 

00 1 5i«t 






INL 


CDACC 


1 AC AT7 


AA1 

001 £V/9 






LLNo 


•cKr Lu 


1 A/ Lt\^ 


AA7^0A 

Ovr OcO 






r voc 




1 A/. Lf\^ 


00 f fiJ 






T VDC 

I TrC 




1 \JHH\ f 


AAA 1 AA 

00*1 1 0*1 








y r CD 


1 A/./. A1 


nn77^T 






1 TrC 




M\LL 1 7 
lVJ«l*l 1 f 


f\t^L^ 1 5 
UU*i 1 1 c 








yuFr 


1 f\LLf\^ 


On77A1 
UU f » 0 1 






rvPF 




I \JhH 1 f 


l\f\L^ J(\ 








. Am 99 


1 f\LLM 
1 0*»hU 1 


007775 
00 f lie 






TVPF 




^(\LL^7 


t\(\L^ PA 








. At"" 




001 ^ClL 






MOV 


MILK RO 


VI jf cv 


001 XJL 

V\J 1 JCH 






MOV 


$PASS,(RO)* 


V 1 J r C\J 


001P1P 






MOV 


iFRTTL (RO)f 




0070A0 

VVC vUv 


1 76074 




MOV 


KMRLVL SKHRVEC 




1 7A07P 






CLR 


aKMRLVL 


01 T777 


0070^/. 
vvC vDH 


1 f ouww 




MOV 


KMTLVL iKMTVEC 


005077 


1 76064 






CLR 


aCHTLVL 


0OS^^7 


001476 

vv 1 i V 






DEC 

Irk V 




001035 








BNE 


SDOAGN 


1 1 ?7T7 


000'S77 


W 1 ^ 1 1 






#377 QV FLG 


013737 


001472 


001476 




nov 


KMNUM.SAVNUM 


005037 


001216 






CLR 


SERRPC 


005037 


001310 






CLR 


STIHES 


005237 


001324 






INC 


SPASS 


042737 


100000 


001324 




BIC 


#100000, SPASS 


005327 








DEC 


(PC)* 


000001 






SEOPCT: 


.WORD 


1 


003013 








SOT 


SDOAGN 


012737 








nov 


(pc)*.a(PC)* 


000001 






SENDCT: 


.UORD 


1 


004046 








lEOPCT 


a«42.R0 


013700 


000042 




SGET42: 


MOV 


001405 








BEQ 


SDOAGN 


000005 








RESET 


PC.(RO) 


004710 






SENOAD: 


JSR 


000240 








NOP 




000240 








NOP 




000240 






SDOAGN: 


NOP 




000137 








JMP 


a(pc)* 



) 



INCREMENT THE PASS COUNT 

CLEAR ERROR FLAG 

TYPE END PASS. 

TYPE "CSR" 

SHOW IT. 

TYPE VECTOR. 

SHOW IT. 

TYPE " PASSES " 

SHOW IT. 

TYPE " ERRORS " 

SHOW IT. 

SET POINTER TO PASSCNT. 
SAVE THE PASS COUNT. 
SAVE ERROR COUNT 

RESTORE THE RECEIVER INTERRUPT VECTOR 

RESTORE RECEIVER LEVEL 

RESTORE THE TRANSMIT INTERRUPT VECTOR 

RESTORE TRANSMITTER LEVEL 

ALL DEVICE TESTED? 

BRANCH IF NO. 

SET QUICK VERIFY FLAG. 

RESTORE DEVICE COUNT. 

CLEAR LAST ERROR PC 
.-ZERO THE NUMBER OF ITERATIONS 
.•INCREMENT THE PASS NUMBER 
.•DON'T ALLOW A NEG. NUMBER 
;LOOP? 

;YES 

:RESTORE COUNTER 



:GET MONITOR ADDRESS 

.•BRANCH IF NO MONITOR 

: CLEAR THE WORLD 

;G0 TO MONITOR 

.'SAVE ROOM 

;FOR 

;ACT11 

: RE TURN 
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L 3 



SEO 0037 



1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 



004102 
004104 
004106 
004110 
004112 
004114 
004116 
004120 
004122 
004124 
004126 
004130 
004132 



004134 
004134 
004140 
004144 
004146 
004150 
004154 
004156 
004164 
004172 



011606 
000001 

006 
002066 
000001 

004 
002056 
000001 

006 
001324 
000001 

006 
001212 



005037 
023716 
001413 
000406 
105777 
100067 
017766 
032777 
001060 



004174 000416 



004176 
004202 
004210 
004214 
004220 
004222 
004224 
004230 
004232 
004232 
004236 
004240 
004244 
004250 



013746 
012737 
005737 
012637 
000436 
022626 
012637 
000441 

105737 
001404 
105037 
005037 
032777 



002 
002 
002 
002 



001216 
014142 



175070 

175064 
040000 



000004 
004222 
177060 
000004 



000004 



001203 

001203 
001310 
004000 



1 nnb 

175046 



000004 



SRTNAD: .WORD CYCLE 
XCSR: 1 

.BYTE 6,2 

KHCSR 
XVEC: 1 

.BYTE 4.2 

KHRVEC 
XPASS: 1 

.BYTE 6,2 

SPASS 
KERR: 1 

•BYTE 6,2 

SERTTL 

; SCOPE LOOP AND INTERATiON HANDLER 

» 

.SBTTL SCOPE HANDLER ROUTINE 



.••THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREHENT 

.■•AND LOAD THE TEST NUmER(STSTNH) INTO THE DISPLAY RE6.(DISPLAV<7:U» 

;*AND LOAD THE ERROR FLAG (SERFLG) INTO 0ISPLAy<15:08> 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

.••SU14=1 LOOP ON TEST 

.••SW11=1 INHIBIT ITERATIONS 

.••CALL 

SCOPE ;:SCOPE*IOT 



SSCOPE: 

CLR 
CUP 
BEO 

TTST: BR 

TSTB 

BPL 

MOV 

1$: BIT 
BNE 

; #mf START OF 
SXTSTR: BR 



174762 



MOV 
NOV 

TST 
NOV 
BR 

5$: CUP 

mv 

BR 

6$:;»«mEND OF 
2$: TSTB 
BEQ 

4$: CLRB 
CLR 

3$: BIT 



SERRPC 
TSTU2.(SP) 
SXTSTR 
IS 

aSTKS 
SOVER 

aSTKB,-2(SP) 

fBITU.aSUR 

SOVER 

CODE FOR THE XOR 
6S 

afERRVEC,-(SP) 
«$S,a#ERRVEC 
atl 77060 
(SP)4,afERRVEC 
SSVLAO 
(SP)*.(SP)* 
(SP)^,afERRVEC 
SOVER 

CODE FOR THE XOR 
SERFLG 
3S 

SERFLG 
STIHES 
fBITIl.aSUR 



; CLEAR LAST ERROR PC 
; IS THIS TEST #1 ? 
; IF SO DON'T LOOP. 

: KEYBOARD DONE ? 
: IF NO DONT UAIT. 

;;LOOP ON PRESENT TEST? 
::YES IF SU14=1 
TESTER«m« 

IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A "mP" lNOP=240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TIRE OUT 
RESTORE THE ERROR VECTOR 
.LOOP ON THE PRESENT TEST 
TESTER#««lf 

:HAS AN ERROR OCCURRED? 
'BR IF NO 

•ZERO THE ERROR FLAG 
; CLEAR THE NUMBER OF ITERATIONS TO MAKE 
.•INHIBIT ITERATIONS? 



00'»256 


001011 








BNE 


1$ 


004260 


005737 


001324 






TST 


SPASS 


004264 


001 406 








BEQ 


IS 


004266 


005237 


001204 






INC 


SICNT 


004272 


023737 


001310 


001204 




fHP 


SriMES.SlCNT 


004300 


002015 








BGE 


SOVER 


004302 


012737 


000001 


001204 


1$: 


MOV 


#1,V1CNT 


004310 


013737 


004362 


001310 




MOV 


$HXCNT,$T1HES 


004316 


105237 


001202 




SSVLAD: 


INCH 


STSTNH 


004322 


113737 


001202 


001322 




novB 


STSTNM.STESTN 


004330 


011637 


001206 






NOV 


(SP),$LPAOR 


004334 


013777 


001202 


174700 


J OVER : 


NOV 


$TSTNM,aDISPLAY 


004342 


013716 


001206 






MOV 


$LPAOR,(SP) 


004346 


005037 


001444 






CLR 


LOCK 


004352 


013701 


002066 






MOV 


KMCSR.R1 


004356 


000002 








RTI 


406 


004360 


000406 






BRU: 


.WORD 


004362 


000020 






SMXCNT : 


20 
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1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

171,1 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 
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SCOPE HANDLER ROUTINE 



M 3 



SEQ 0038 



;BR IF YES 

;IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
; INCREMENT ITERATION COUNT 
; CHECK THE NUMBER OF ITERATIONS MADE 
:;BR IF MORE ITERATION REQUIRED 
.•REINITIALIZE THE ITERATION COUNTER 
;;SET NUMBER OF ITERATIONS TO DO 
;; COUNT TEST NUMBERS 
;;SET TEST NUMBER IN APT MAILBOX 
;;SAVE SCOPE LOOP ADDRESS 
; .-DISPLAY TEST NUMBER 
;;FUDGE RETURN ADDRESS 

; RESET LOCK ON DATA. 

; R1 CONTAINS BASE KMC ADDRESS. 



;:MAX. NUMBER OF ITERATIONS 



;CHECK FOR FREEZE ON CURRENT DATA 



004364 004737 011340 

004370 032777 001000 174642 

004376 001405 

004400 005737 001444 

004404 001402 

004406 013716 001444 

004412 000002 



.SCOPl 



1$: 



JSR PCCKSUR 

BIT ISU09,aSUR 

BEQ IS 

TST LOCK 

BEQ IS 

MOV LOCK,(SP) 

RTI 



.•CHECK FOR SOFT SWR 
;IS SW09=1(SET)? 
:BR IF NOT SET. 



:GOTO THE ADDRESS IN LOCK. 
:60 BACK. 



; TELETYPE OUTPUT ROUTINE 
.SBTTL TYPE ROUTINE 



.♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
•N0TE1 * — •*"' " " '""^ 

•N0TE2 
*NDTE3 



LL IMitm A WUnOCW Ur nuUL unWRWUCua wick « Uinc rttw. 

SNUU CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



•CALL: 

•1) USING A TRAP INSTRUCTION 

• TYPE .MESADR 
•OR 

• TYPE 

• MESADR 



004414 105737 001257 

004420 100002 

004422 000000 

004424 000430 

004426 010046 

004430 017600 000002 



STYPE: 



IS: 



TSTB 

8PL 

HALT 

BR 

NOV 

NOV 



STPFLG 
IS 

3S 

RO.-(SP) 
a2(SP).R0 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



:;IS THERE A TERMINAL? 
' 'BR IF YES 

••HALT HERE IF NO TERMINAL 

LEAVE 
• * SAVE RO 

••GET ADDRESS OF ASCIZ STRING 
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TYPE ROUTINE 



1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1850 

1831 

1832 

1853 



004434 
004442 
004444 
004452 
004454 
004460 
004464 
004466 
004474 
004476 
004500 
004502 
004504 
004506 
004512 
004514 
004520 
004522 
004526 
0045^0 
004 'v32 
00^534 
004536 
004542 
004544 
004550 
004554 
004556 

004562 
004566 
004570 
004574 
004600 



004602 
004606 
004612 
004620 
004622 
004624 
004626 
004632 
004634 
004642 
004650 
004652 
004656 
004660 
004666 
004670 
004672 
004674 



122737 
001011 
132737 
001405 
010037 
004737 
000000 
132737 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001313 
105037 
000755 
004737 
123726 
001350 
013746 

105366 
002770 
004737 
105337 
000770 



112716 
004737 
132737 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 



000001 

000100 

004464 
004704 



000040 
004626 
000007 



174416 

000002 
000015 

004672 

000012 



001336 
001337 



000040 001337 



000002 
000011 
000200 

004672 

004626 
001256 

001254 

000001 

004626 
004672 



61$: 
62S: 

2$: 



60S: 
3t: 

4S: 



5S: 
61: 



7$: 



CMPB 

BNE 

BITB 

BEQ 

HOV 

JSR 

.WORD 

BITB 

BNE 

novB 

BNE 

TST 

HOV 

ADD 

RTI 

CMPB 

BEQ 

CHPB 

BNE 

TST 

TYPE 

SCRLF 

CLRB 

BR 

JSR 

CHPB 

BNE 

nov 

DECB 

BLT 

JSR 

DECB 

BR 



N 3 



#APTENV,$ENV 
62S 

#APTSPOOL.tENVH 
62$ 

R0,61$ 
PC.$ATY3 

0 

#APTCSUP.$ENVH 
60$ 

(R0)*.-(SP) 
4$ 

(SP)* 

(SP)+,RO 

#2,<SP) 

#HT,(SP) 
8$ 

#CRLF,(SP) 
5$ 

(SP)* 



$CHARCNT 
2$ 

PC.$TYPEC 

$FILLC,(SP)*' 

2$ 

$NULL,-(SP) 

KSP) 
6$ 

PC.$TYPEC 

SCHARCNT 

7$ 



SEQ 0039 



.-HORIZONTAL TAB PROCESSOR 



004672 



174410 
000002 



000002 1$ 



8$ 

9$ 



$TYPEC; 



MOVB 
JSR 
BITB 
BNE 
TST 
BR 
TSTB 
BPL 
HOVB 
CMPB 
BNE 
CLRB 
BR 
CHPB 
BEQ 
INCB 
SCHARCNT:. WORD 
STVPEX: RTS 



f .(SP) 
PCSTYPEC 
«7,$CNARCNT 
9$ 

(SP>* 
2$ 

a$Tps 

STYPEC 

2(SP),aSTP6 

#CR.2(SP) 

1$ 

SCHARCNT 

STYPEX 

fLF,2CSP) 

STYPEX 

(PC)* 

0 

PC 



RUNNING IN APT MODE 
;;NO,GO CHECK FOR APT CONSOLE 
;; SPOOL MESSAGE TO APT 
::N0,60 CHECK FOR CONSOLE 
;: SETUP MESSAGE ADDRESS FOR APT 
;; SPOOL MESSAGE TO APT 
;; MESSAGE ADDRESS 
;;APT CONSOLE SUPPRESSED 
;;YES,SKIP TYPE OUT 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 

:;BR IF IT ISN'T THE TERMINATOR 

;;IF TERMINATOR POP IT OFF THE STACK 

; .-RESTORE RO 

;; AD JUST RETURN PC 

RE TURN 
:; BRANCH IF <HT> 

;. -BRANCH IF NOT <CRLF> 

.-.-POP <CR><LF> EOUIV 
.-.-TYPE A CR AND LF 

: .-CLEAR CHARACTER COUNT 

.-.-GET NEXT CHARACTER 

.-.-GO TYPE THIS CHARACTER 

;;IS IT TIME FOR FILLER CHARS.? 

;;IF NO GO GET NEXT CHAR. 

:;GET « OF FILLER CHARS. NEEDED 

:;AND THE NULL CHAR. 

:;DOES A NULL NEED TO BE TYPED? 

;;BR If NO— GO POP THE NULL OFF OF STACK 

;;G0 TYPE A NULL 

;:D0 NOT COUNT AS A COUNT 

;;LOOP 



.-.-REPLACE TAB UITH SPACE 
;;TYPE A SPACE 

BRANCH IF NOT AT 
;;TAB STOP 

.-.-POP SPACE OFF STACK 

:;GET NEXT CHARACTER 

::UAIT UNTIL PRINTER IS READY 

.-.-LOAD CHAR TO BE TYPED INTO DATA REG. 
.-:IS CHARACTER A CARRIAGE RETURN? 
;; BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 
;;EXIT 

;;IS CHARACTER A LINE FEED? 
;: BRANCH IF YES 

COUNT THE CHARACTER 
:: CHARACTER COUNT STORAGE 
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APT COnnUNICAT 


1 0 










.SBTTL 


APT CO 


1 OjJ 














1 O JO 










iATVI : 




1 0 jr 


UUHO ' o 


112737 


000001 


UU J 1 He 


MOVB 


1 ATA 

1 O JO 


f\(\L7(\L 
UUh r Uh 


112737 


000001 


vvj 1 hU 


$ATy3: 


novB 


1 O JT 


UUH r 1 c 


000403 








BR 




rtn/. 71 L 


112737 


000001 


Wj I He 


$ATV4: 


MOVB 


1 A/. 1 
1 o** 1 


UUh r £t 








$ATVC: 






UU*» fee 


010046 








MOV 


1 OH J 


UwH r cH 


010146 








nov 


1 AA^ 
1 Oh** 


nn^ 7?A 

viwH r CO 


105737 


005140 






TSTB 


1 

1 0*» J 


wwH r jC 


001450 








BEQ 


1 AA/t 
1 OmO 




122737 


000001 


001 Wft 

UU 1 J jO 




cnPB 


1 A^7 


UUH f He 


001031 








BNE 


1 AAA 

1 OmO 


UUH f HH 


132737 


000100 


001^^7 
UU 1 Jjl 




BITB 


1 AAQ 

1 OH T 


UUH r JC 


001425 








BEQ 


1 Asn 


UvH 1 JH 


017600 


000004 






HOV 


1 A^1 


UUH r oU 


062766 


000002 


000004 




ADD 


1 A^7 


0n^7AA 
UUH r oo 


005737 


001316 




IS: 


TST 


1 OJJ 


wwH r r c 


001375 








BNE 


1 O JH 


UwH r r H 


010037 


001332 






nov 


1 OJ J 


AOS 000 
UU J UUU 


105720 






21: 


TSTB 


1 OjQ 


oo^no? 

UU Juuc 


001376 








BNE 


1 AS7 

1 O J r 


00^004 

UU JUUH 


163700 


001332 






SUB 


1 A^A 

1 030 


00^010 
UU ju I u 


006200 








ASR 


1 A<«Q 
1 037 


00S01 ? 


010037 


001334 






MOV 


1 AAA 

1 OoU 


UU7U 1 O 


012737 


000004 


001 ^1 A 
UU 1 J 1 o 




MOV 


1 AA1 

1 Oo 1 


00^034 
UUjUcH 


000413 








BR 


1 AA7 

1 Ooc 


00S07A 

UU JUCO 


017637 


000004 


OOSOS? 

\J\/ J\J J c 


3$: 


HOV 


1 AA^ 

1 oo J 


00S0^4 

UU Jw JH 


062766 


000002 


000004 

UUwwWH 




ADO 


1 AA^ 


00^047 

Uv JUHc 


013746 


177776 






MOV 


1 OOJ 


no^04A 

UU JUHO 


004737 


004414 






JSR 


1 AAA 

1 ooo 


OOSOS? 
yJvJvJC 


000000 






4$: 


.WORD 


1 AA7 

1 oo ' 


UU JV JH 








5$: 




1 AAA 

1 ooo 


WU JU JH 


105737 


005142 




10S: 


TSTB 


1 AAO 


OOSOAO 


001416 








BEQ 


1 A7n 

1 Or w 


OOSOA? 
UUJUoe 


005737 


001336 






TST 


1 A71 

■ Oil 


OOSOAA 

UU J wOO 


001413 








BEQ 


1 A7? 
lore 


00S070 


005737 


001316 




111: 


TST 


1 A7^ 

1 O r J 


00^074 
vv jur H 


001375 








BNE 


1 A7^ 

I O r H 


wv ju r D 


017637 


000004 


001520 
wv 1 Jew 




MOV 


187S 


00^104 

\J\J J I VH 


062766 


000002 


000004 

WWW" 




ADD 


187A 

1 0 r o 




005237 


001316 






INC 


1877 

1 O f f 


00S1 1A 


105037 


005142 




12$: 


CLRB 


1 0 r o 


WW J 1 ee 


105037 


005141 






CLRB 


187Q 
1 o r T 


00^1 7A 

UU J 1 Cw 


105037 


005140 






CLRB 


i88n 

1 OOv 


OflSI^? 

UUJ 1 JC 


012601 








MOV 


1M1 

1 OO 1 


nosi ^4 

UU J 1 JH 


012600 








MOV 


1887 

1 OOc 


WW J 1 JO 


000207 








RTS 


188^ 


WW J 1 HU 


000 






$HFL6: 


.BYTE 


188L 


00^141 

UU J 1 H 1 


000 






SLFL6: 


,BVTE 


188^ 

1 OOJ 


00S147 

UU J 1 HC 


000 






$FFLG: 


.BYTE 


1886 




005144 








.EVEN 


1887 




000200 






APTSI2E 


=200 


1888 




000001 






APTENV= 


001 


1889 




000100 






APT SPOOL si 00 



B 4 

IONS ROUTINE 
MMUNICATIONS ROUTINE 



«1,$FFLG ;:T0 REPORT FATAL ERROR 

fl.SMFLG ;:T0 TYPE A MESSAGE 
$ATYC 

«1.$FFLG ;:T0 ONLY REPORT FATAL ERROR 

RO.-(SP) ;;PUSH RO ON STACK 

R1,-(SP) ;;PUSH R1 ON STACK 

SMFLG ;: SHOULD TYPE A MESSAGE? 

5$ ;;IF NOT: BR 

#APTENV,$ENV ;, -OPERATING UNDER A^T? 

3S ''IF NOT : BR 

«APTSPOOL,$ENVM ; 'SHOULD* SPOOL MESSAGES? 

3$ :;IF NOT: BR 

a4(SP),R0 ;:GET MESSAGE ADPR. 

#2,4(SP) ;;BUMP r.ETURN ADDR. 

SMSGTYPE ;;SEE IF DONE W/ LAST XMISSION 

1$ ;;IF NOT: WAIT 

RO.$MSGAD ::PUT ADDR IN MAILBOX 

(R0)« ;:FIND END OF MESSAGE 

2$ 

$HSGAD,RO ;;SUB START OF MESSAGE 

RO ::GET MESSAGE LNGTH IN WORDS 

RO.tMSGLGT ;;PUT LENGTH IN MAILROX 

«4. SMSGTYPE ::TELL APT TO TAKE MSG. 

5S 

a4(SP),4S ::PUT MSG ADDR IN JSR LINKAGE 
#2.4(SP) ;;BUMP RETURN ADDRESS 

177776, -(SP) ;;PUSH 177776 ON STACK 

PC.STYPE ;;CALL TYPE MACRO 
0 

SFFLG :; SHOULD REPORT FATAL ERROR? 

12S r.lf NOT: BR 

SENV ; .-RUNNING UNDER APT? 

12S * * IF NOT * BR 

SMSGTYPE ; -FINISHED LAST MESSAGE? 

IIS ;;IF NOT: WAIT 

a4<SP).SFATAL ;;6ET ERROR # 

I2,4(SP) .-.-BUMP RETURN ADDR. 

SMSGTYPE ;:TELL APT TO TAKE ERROR 

SFFLG ;; CLEAR FATAL FLAG 

SLFLG CLEAR LOG FLAG 

SMFLG ; .-CLEAR MESSAGE FLAb 

(SP)*.R1 ;;POP STACK INTO R1 

(SP>».RO .-.'POP STACK INTO RO 

PC ;; RE TURN 

0 :;MESSG. FLAG 

0 ;;LOG FLAG 

0 ;;fATAL FLAG 
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C 4 



SEO 0041 



1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 



005144 
005146 
005154 
005160 
005162 
005170 
005176 
005204 
005206 
005212 
005214 
005220 
005224 
005230 
005232 
005234 
005242 
005244 
005252 
005254 
005262 



005264 
005266 
005270 
005274 
005300 
005302 
005304 
005306 
005312 



000040 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 



010346 
005046 
012703 
022705 
101456 
104402 
112613 
122713 
001022 



APTCSUP=040 



.S8TTL TTY INPUT ROUTINE 



.ENABL LSB 
.DSABL LSB 



•THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
•CALL: 

* RDCHR 

• RETURN HERE 



;; INPUT A SINGLE CHARACTER FROM THE TTY 
;; CHARACTER IS ON THE STACK 
;;W1TH PARITY BIT STRIPPED OFF 







$RDCHR : 


nov 


{SP).-(SP) 


000004 


000002 




NOV 


4(SP).2(SP) 


174064 




1$: 


TSTB 
BPL 


aSTKS 
IS 


174060 


000004 




NOVB 


aSTKB,4(SP) 
#*C<177>.4(SP) 
4(SP).#23 
1% 


177600 


000004 




BIC 


000004 


000023 




CMP 
BNE 


174032 




2$: 


TSTB 


aSTKS 






BPL 


2% 


174026 






HOVB 


a$TKB.-(SP) 
#*C177.(SP) 


177600 






BIC 


000021 






CHP 
BNE 
BR 


(SP)*.#21 
2% 

u 


000004 


000140 


3$: 


CUP 


4(SP),f140 






BLT 


4$ 


000004 


000175 




CMP 
BGT 


4(SP),fl75 
4» 


000040 


000004 


4S: 


BIC 
RTI 


«40,4(SP) 



.♦THIS 
.••CALL 



;* 



r *••«•***#*«** t*«* 

ROUTINE WILL INPUT A STR 
RDLIN 

RETURN HERE 



OOS520 
005527 



000177 



SRDLIN: HOV 
CLR 



1$: 
2$: 



10$: 



nov 

C«P 

BLOS 

RDCHR 

HOVE 

CHPB 

BNE 



R3.-(SP) 

-(SP) 

#$TTYIN.R3 

#$TTYIN*7,R3 

4S 

(SP)*,(R3) 
#177. (R3) 
5S 



:PUSH DOWN THE PC 
;SAVE THE PS 
;UAIT FOR 
;A CHARACTER 
;READ THE TTY 
;GET RID OF JUNK IF ANY 
;IS IT A CONTROL-S? 
: BRANCH IF NO 
;UAIT FOR A CHARACTER 
.-LOOP UNTIL ITS THERE 
;GET CHARACTER 
;nAKE IT 7-BIT ASCII 
;IS IT A CONTROL-Q? 
;IF NOT DISCARD IT 
;YES. RESUME 
;IS IT UPPER CASE? 
: BRANCH IF YES 
;IS IT A SPECIAL CHAR? 
; BRANCH IF YES 
;nAKE IT UPPER CASE 
;60 BACK TO USER 
«*t**t*******t******« ••••*••*•«*«• 

IN6 FROM THE TTY 

INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER UILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 

* ' SAVE R3 

••CLEAR THE RUBOUT KEY 
;;GET ADDRESS 
:; BUFFER FULL? 
' *BR IF YES 

••GO READ ONE CHARACTER FROM THE TTY 
:;GET CHARACTER 
;;1S IT A RUBOUT 
:;BR IF NO 
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D 4 



SEQ 004? 



1946 


005314 


005716 






1947 


005316 
005320 


001007 






1948 


112757 


000134 


005516 


1949 


005326 


104401 


005516 




1950 


005332 


012716 


T7777 




1951 


005336 


005505 






1952 


005540 


020527 


005520 




1953 


005544 


105454 






1954 


005346 


111557 


005516 




1955 


005352 


104401 


005516 




1956 


005556 


000746 






1957 


005560 


005716 






1958 


005362 


001406 






1959 


005364 


112757 


0001 34 


005516 


1960 


005372 


104401 


005516 




1961 


005576 


005016 






1962 


005400 


122713 


000025 




1963 


005404 


001005 






1964 


005406 


104401 


005527 




1965 


005412 


000726 






1966 


005414 


122715 


000022 




1967 


005420 


001011 






1968 


005422 


105015 






1969 


005424 


10<i401 


001315 




1970 


005430 


104401 


005520 




1971 


005454 


000717 






1972 


005436 


104401 


001512 




1973 


005442 


000712 






1974 


005444 


111337 


005516 




1975 


005450 


104401 


005516 




1976 


005454 


122723 


00001 5 




1977 


005460 


001 305 






1978 


005462 


105063 


177777 




1979 


005466 


104401 


001514 




1980 


005472 


005726 






1981 


005474 


012603 






1982 


005476 


011646 






1983 


005500 


016666 


000004 


000002 


1984 


005506 


012766 


005520 


000004 


1985 


005514 


000002 






1986 


005516 


000 






1987 


005517 


000 






1988 


005520 


000007 






1989 


005527 


136 


006525 


000012 


1990 


005534 


043536 


005015 


000 


1991 


005541 


015 


051412 


051127 


1992 


005546 


056440 


000040 




1995 


005552 


020040 


042516 


020127 


19*4 


005560 


020075 


000 




1995 




00SS64 






1996 










1997 










1998 










1999 










2000 










2001 











6$: 



7$; 



8S: 



4S: 
5$: 



9S: 

JTTYIN 
JCNTLU 
KNTL6 
SMSUR: 



.EVEN 
.SBTTL 



TST 




f f 1 d 1 n i 9 1 nc r i 1 nUDUu 1 • 


RNE 


#'\ 9t 




MOVR 


■ • TYPF A RATK CI ACM 


TYPE 


9$ 




MOV 


#-1 .(SP) 


■•CFT THF RlinnilT KFV 


DEC 


R5 


■ 'BACKUP RY ONF 


CMP 


R5.#$TTYIN 


• 'STACK EMPTY'' 


BLO 


4$ 


;;BR IF YES 


MOVB 


(R5) ,9$ 


'■SETUP TO TYPFOUT THF DFIFTFD TMAR 


TYPE 


.9$ 


;;60 TYPE 


BR 


::G0 READ ANOTHER CHAR 


TST 


(SP) 


•:RUBOUT KEY SET** 


BEQ 


7$ 


- 'BR IF NO 


novB 


#'\,9$ 


: : TYPE A BACK SLASH 


TYPE 


.9$ 




CLR 


(SP) 


:: CLEAR THE RUBOUT KEY 


CMPB 


#25. (R5) 


::IS CHARACTER A CTRL U** 


BNE 


8S 


;:BR IF NO 


TYPF 


.SCNTLU 


; ; TYPE A CONTROL "U" 


BR 


1$ 


:;G0 START OVER 


CMPB 


#22. (R5) 


":IS CHARACTER A "•R"'» 


BNE 


5$ 


;; BRANCH IF NO 


CLRB 


(R3) 


;: CLEAR THE CHARACTER 

0 ^ k W k * »■ " ■ ■ f k k ■ ^ k ' k • ^ 

;;TYPE A "CR" I "lF" 


TYPE 


.SCRLF 


TYPE 


,$TTYIN 
2S 


''TYPE THE INPUT STRING 


BR 


■:G0 PICKUP ANOTHER CHACTER 


TYPE 


.SOUES 


;;TYPE A '?' 


BR 


It 


:: CLEAR THE BUFFER AND LOOP 

0 0 kkk"l< • • 'k Wwl > k • « mVlir kW 


novB 


(R3) ,9$ 


:;ECHO THE CHARACTER 


TYPE 


.9$ 




cnPB 


#15. (R3)* 


;: CHECK FOR RETURN 


BNE 


2$ 


:;LOOP IF NOT RETURN 


CLRB 


-UR3) 


;; CLEAR RETURN (THE 15) 


TYPE 


.»LF 


;;TYPE A LINE FEED 


TST 


(SP)* 


CLEAN RUBOUT KEY FROn THE STACK 


nov 


(SP)*,R3 


; .'RESTORE R5 


nov 


(SP),-(SP) 


: .'ADJUST THE STACK AND PUT ADDRESS OF THE 


nov 


4(SP),2(SP) 


FIRST ASCII CHARACTER ON IT 


nov 


f$TTYIN.4(SP) 




RTI 


RE TURN 


.BYTE 


0 


:: STORAGE FOR ASCII CHAR. TO TYPE 


.BYTE 


0 


;:TERniNATOR 


.BLKB 


7 

/•U/<15><12> 


;;RESERyE 7 BYTES FOR TTY INPUT 
;; CONTROL 'V 
CONTROL "G" 


.ASCII 


.ASCIZ 


/•6/<15><12> 



.ASCIZ <15><12>/SUR s / 



SnNEU: .ASCIZ / NEW - / 



READ AN OCTAL NUMBER PROM THE TTY 



.-•THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROn THE TTY AND 
.-•CHANGE IT TO BINARY. 

.-•THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 



CZKCF 


MACY11 


50A(1052) 


08-JL 


CZKCF.P11 08 


-JUL-80 08:24 


2002 








2003 








2004 








2005 








2006 








2007 








2008 








2009 








2010 


005564 


011646 




2011 


005566 


016666 


000004 


2012 


005574 


010046 




2013 


005576 


010146 




20U 


005600 


010246 




2015 


005602 


104403 




2016 


005604 


012600 




2017 


005606 


010037 


005712 


2018 


005612 


005001 




2019 


005614 


005002 




2020 


005616 


1 1 2046 




2021 


005620 


001420 




2022 


005622 


122716 


000060 


2023 


005626 


003026 




2024 


005630 


122716 


000067 


2025 


005634 


002423 




2026 


005636 


006301 




2027 


005640 


006102 




2028 


005642 


006301 




2029 


005644 


006102 




2030 


005646 


006301 




2031 


005650 


006102 




2032 


005652 


042716 


177770 


2033 


005656 


062601 




2034 


005660 


000756 




2035 


005662 


005726 




2036 


005664 


010166 


000012 


2037 


005670 


010237 


005722 


2038 


005674 


01 2602 




2039 


005676 


012601 




2040 


005700 


01 2600 




2041 


005702 


000002 




2042 


005704 


005726 




2043 


005706 


105010 




2044 


005710 


104401 




2045 


005712 


000000 




2046 


005714 


104401 


001312 


2047 


005720 


000730 




2048 


005722 


000000 




2049 








2050 








2051 








2052 








2053 


005724 


010546 




2054 


005726 


016605 


000002 


2055 


005732 


012537 


005770 


2056 


005736 


012537 


006050 


2057 


005742 


012537 


006052 



E A 

08:27 PAGE 4A 

READ AN OCTAL NUHBER FROM THE TTY 

•OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 
•FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUHBER MUST 
•THEN BE RETYPED. THE INPUT 1$ TERMINATED BY TYPING A CARRIAGE RETURN. 
•CALL: 

• RDOCT ;;READ AN OCTAL NUMBER 

• RETURN HERE :;LOW ORDER BITS ARE ON TOP OF THE STACK 

• ;:HI6H ORDER BITS ARE IN SHIOCT 



SEQ 004 3 



$RD0CT: 


MOV 


(SP) ,-{SP) 


;;PR0VIDE SPACE FOR THE 




MOV 


4(SP),2{SP) 


;; INPUT NUMBER 




MOV 


RO,-(SP) 


;;PUSH RO ON STACK 




MOV 


Rl .-(SP) 


;;PUSH Rl ON STACK 




MOV 


R2.-(SP) 


;;PUSH R2 ON STACK 


U: 


RDLIN 


;:READ AN ASCIZ LINE 




MOV 


(SP)<-,RO 


;;GET ADDRESS OF 1ST CHARACTER 




MOV 


R0,5$ 


:;AND SAVE IT 




CLR 


Rl 


;; CLEAR DATA WORD 




CLR 


R2 




2$: 


MOVB 


(RO)".-{SP) 


;: PICKUP THIS CHARACTER 


BEQ 


3$ 

#'0,(SP) 


;;IF ZERO GET OUT 




CMPB 


;;MAKE SURE THIS CHARACTER 




BGT 


4$ 

#'7,(SP) 


::IS AN OCTAL DIGIT 




CMPB 






BLT 


4$ 






ASL 


Rl 


;;*2 




ROL 


R2 






ASL 


Rl 


;;*4 




ROL 


R2 






ASL 


Rl 


;;*8 




ROL 


R2 

l*C7,(SP) 






BIC 


STRIP THE ASCII JUNK 




ADD 


(SP)*,R1 


;;ADD IN THIS DIGIT 




BR 


2$ 


;;LOOP 


3$: 


TST 


(SP)* 


;: CLEAN TERMINATOR FROM STACK 




HOV 


Rl ,12(SP) 


;:SAVE THE RESULT 




NOV 


R2,$HI0CT 






HOV 


(SP)*,R2 


;;POP STACK INTO R2 




HOV 


(SP)*,R1 


;;POP STACK INTO Rl 




HOV 


(SP)*,RO 


;;POP STACK INTO RO 




RTl 


' 'RETURN 


4$: 


TST 


(SP)* 


i: CLEAN PARTIAL FROM STACK 


CLRB 
TYPE 


(RO) 


:;SET A TERMINATOR 

:;TYPE UP THRU THE BAD CHAR. 


5$: 


.WORD 


0 




TYPE 


,SQUES 


;;••?" "CR" \ "LF" 
:;TRY AGAIN 




BR 


IS 


SHIOCT: 


.WORD 


0 


:;HIGH ORDER BITS GO HERE 



INPUT OCTAL NUHBER ROUTINE 



S INPUT: HOV 
HOV 
HOV 
HOV 
HOV 



R5.-(SP) 

2(SP).R5 

(R5)*,WHAT 

(R5)*.L0LIM 

(R5)*,HILIM 



SAVE REGISTER R5. 

GET FIRST PARAHETER ADDRESS, 

GET HESSAGE ADDRESS. 

GET LOW LIMIT FOR THE # 

GET HIGH LIMIT FOR THE #. 



F 4 
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CZKCF.PII 08 


- JUL-86 


08:24 


READ AN 


OCTAL 


NUMBER FROM THE TTY 




2058 


005746 


012537 


006054 

WW 




nov 


(R5)*, WHERE 




GET ADDRESS OF INBUFFER 


2059 


005752 


112537 


006056 

WW ^ V 






(R5)*, LOBITS 




GET LOUnASK BITS 


2060 


005756 


112537 


006057 

WW ^ ' 






(R5)«, ADRCNT 




GET # OF #'S TO BE GENERATED 


2061 


005762 


010566 


000002 




nov 


R5,2(SP) 




SAVE THE RETURN ADDRESS. 


2062 


005766 


104401 




INLP1 * 


TYPE 




TYPE THE nESSAGE 


2063 


005770 


000000 

www 




UHAT : 


.WORD 


0 






206A 


005772 


104404 






RDOCT 






READ OCTAL f FROM KEYBOARD 


2065 


005774 


021637 


006052 




CMP 


(SP).HILIM 




IS IT IN HIGH LIMIT' 


2066 


006000 


003003 






BOT 


2S 




BRANCH IF NO. 


2067 


006002 


021637 


006050 




CUP 


(SP), LOLIM 




• IS IT MORE THAN LOW LIMIT. 


2068 


006006 


002005 

W W w w ^ 






BGE 


3S 




• BRANCH IF YES. 


2069 


006010 


104401 


001312 


2*: 


TYPE 


.SQUES 




■ TYPE " ? " 


2070 


006014 


104401 


001313 




TYPE 


,SCRLF 




; TYPE <CR>,<LF> 


2071 


006020 


000762 






BR 


INLP1 




2072 


006022 


013705 


006054 


3$: 


MOV 


WHERE, R5 




; GET BUFFER ADDRESS. 


2073 


006026 


011625 




4t: 


MOV 


(SP).(R5)+ 




: SAVE THE # IN RIGHT PLACE. 


2074 


006030 


062716 


000002 




ADD 


#2,(SP) 




; NEXT SEQUENTIAL NUMBER. 


2075 


006034 


105337 


006057 




DECB 


ADRCNT 




; COUNT BY 1 . 


2076 


006040 


001372 






BNE 


4$ 




; BRANCH IF NOT DONE. 


2077 


006042 


005726 






TST 


(SP)* 




; POP THE STACK POINTER. 


2078 


006044 


012605 






MOV 


(SP)*,R5 




; POP THE REG. 5 


2079 


006046 


000002 

V W W W V 






RTI 








2080 


006050 


000000 

w w w w w w 




LOLIM: 


.WORD 


0 






2081 


006052 


000000 




HILIM: 


.WORD 


0 






2082 


006054 


000000 




WHERE : 


.WORD 


0 






2083 


006056 


000 




LOBITS: 


.BYTE 


0 






2084 


006057 


000 




ADRCNT; 


.BYTE 


0 






2085 


















2086 










: ADVANCE TO NEXT TEST HANDLER 




2087 










* 








2088 
















2089 


006060 


013716 


0OU42 


.ADVANCE: 


nov NEXT,(SP) 


; CRUNCH STACK WITH ADDRESSOF SCOPE CALL 


2090 


006064 


005037 


001444 




CLR 


LOCK 




; RESET T'GHT LOOP ADDRESS 


2091 


006070 


000002 






RTI 






; CHECK TO SEE IF OLD TEST GETS REPEATED 


2092 


















2093 










;SAVE 


PC OF TEST THAT FAILED AND 


R0-R5 


2094 










§ 








2095 


















2096 


006072 


016637 


000004 001460 


.SAV05: 


MOV 


4(SP).SAVPC ;SAVE R7 


(PC) 


2097 


















2098 










;SAVE 


R0-R5 






2099 


















2100 


006100 


010537 


001274 


SV05: 


MOV 


R5.$REG5 


SAVE R5 




2101 


006104 


010437 


001272 




nov 


R4,SREG4 


SAVE R4 




2102 


006110 


010337 


001270 




MOV 


R3.SREG3 


•SAVE R3 




2103 


006114 


010237 


001266 




MOV 


R2.SREG2 


•SAVE R2 






006120 


010137 


001264 




MOV 


Rl.SREGI 


SAVE R1 




2105 


006124 


010037 


001262 




nov 


R0,SRE60 


-SAVE RO 




2106 


006130 


000002 






RTI 


; LEAVE. 




2107 


















2108 










;RESTORE R0-R5 






?109 
2110 


006132 


013700 


001262 


.RES05: 


MOV 


SREGO.RO 


; RESTORE 


RO 


2111 


006136 


013701 


001264 




MOV 


SREG1 .R1 


; RESTORE 


R1 


2112 


006142 


013702 


001266 




MOV 


$REG2,R2 


; RESTORE 


R2 


2113 


006146 


015703 


001270 




nov 


SREG3,R3 


; RESTORE 


R3 
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SEO 0045 



2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

217.9 

2150 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 



006152 013704 001272 
006156 013705 001274 
006162 000002 



nov 

MOV 
RTI 



$REG4«R4 
SREG5,R5 



RESTORE R4 
RESTORE R5 
LEAVE 



.•CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 



006164 


104401 


001313 




« 

.CONVR: 


TYPE 


,$CRLF 


0061 70 


010046 






.CNVRT: 


MOV 


RO,-(SP) 


0061 72 


010146 








MOV 


A 4 t rw 

RI ,-(SP) 


0061 74 


010346 








mOv 


R3.-(SP) 


0061 76 


010446 








MOV 


R4 ,-(SP) 


006200 


010546 








MOV 


A P / ^ A \ 

R5,-(SP) 

'%4n/rA\ n4 

912(SP) ,R1 


006202 
006206 


017601 


000012 






MOV 


062766 


A A A A A ^ 

000002 


AAA A 4 

000012 




ADD 


#2.12<SP) 


0062 U 


012137 


006406 






MOV 


/ A 4 \ ^ 1 IB A r kl T 

(R 1 ) ♦ ,URDCNT 


006220 


112137 


006410 




1$: 


M0V6 


(R1)*,CHRCNT 


006224 


112137 


006411 






MOVo 


(RI ) ♦.SPACNT 


006230 


013137 


006412 






MOV 


a(Rl)«,BlNWRD 


006234 


122737 


AA AA A Y 

000003 


AAX / 4 A 

006410 






f O.CHRLNT 


006242 


AAA ArtV 

001003 








BNE 


2S 


006244 


042737 


4 77/ AA 

177400 


AA/./ i ^ 

006412 




BI C 




006252 


A 4 Y ^ A / 

013704 


A A J / 4 

0064 1 2 




2»: 


MA If 

MOV 


BINWRD,R4 


006256 


4 4 9 ^A C 

113705 


AA/ i 4 A 

006410 






no YD 


ruDruT DC 


006262 


A 4 9 AA 

012700 


A 4 4 ^ T / 

01 1234 






MOV 




U06266 


010403 






3»: 


MAii 

nov 


R4 -R5 

•17777A Dl 

9\fff rO,R5 


006270 


042703 


177770 






BIC 


006274 


062703 


000060 






A fV A 

ADD 


MAX. A 

R J, VWUi ♦ 


006300 


1 4 AT^ A 

1 10320 








MA WD 

novo 


006302 


A A A / 4 

000241 








CLC 


0/, 


006304 


006004 








■SAD 


006306 


OO0241 








CLC 


n't 


006310 


AAX AA/ 

006004 










00631 £ 


AAA*)/ i 

000241 








ri r 
LLL 


n*» 


006314 


006004 








DAD 
KUN 


AA^ V 4 i£ 

006316 


#k AC T AC 

005305 








Del 


R J 


006320 


AA4 

001 362 








DNC 




006322 


A4 ^7AT 

01 2793 


Ai 1 ^7X. 






nUV 




^A^ 

006326 


114023 






4>: 


MAUD 

ROViS 




AAX WA 

006330 


105337 


AAA^ i A 

006410 






UC LB 




AA^ W / 

006334 


AA4 

001 574 










Lt. 

mw 


AAX WX 

006336 


105737 


AA^y i i 

00641 1 






1 9 Its 




AA^ V ^ ^ 

006342 


AA1 / AC 

001403 








OCA 


AC 


AAX ^ i 1 

006344 


4 4 

112723 


AAAAy A 

000040 






nOVB 


• U*»v, vn J J ' 






t\t\t^L 1 1 






l/C %>D 




006354 


001373 








BNE 


5$ 


006356 


105013 






6$: 


CLRB 


(R3) 


006360 


104401 


011276 






TYPE 


,MDATA 


006364 


005337 


006406 






DEC 


URDCNT 


006370 


001313 








BNE 


IS 


006372 


012605 








MOV 


(SP>*,R5 


006374 


012604 








MOV 


(SP)+,R4 


006376 


012603 








MOV 


(SP)*.R3 


006400 


012601 








MOV 


(SP)+.R1 


006402 


012600 








MOV 


(SP)t.RO 


006404 


000002 








RTI 





H A 
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CZtCCF.PII 08-JUL-80 08:2^ READ AN OCTAL NUMBER FROM THE TTY 



SEO 0046 



2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2 '.87 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

?221 

2222 

2223 

2224 

2225 



006406 
006410 

006412 



006436 
006440 
006446 



006450 
006452 



006454 
006456 
006460 
006462 
006464 
006466 
006470 
006472 
006474 
006476 
006500 



000000 
000000 
0064 11 
000000 



URDCNT: 0 
CHRCNT: 0 
SPACNT-CHRCNT+1 
BINURD: 0 



;TRAP DISPATCH SERVICE 
:AR6UnENT OF TRAP IS EXTRACTED 
;AND USED AS OFFSET TO OBTAIN POINTER 
;T0 SELECTED SUBROUTINE 



.SBTTL TRAP DECODER 



;»THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 

:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

:*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*G0 TO THAT ROUTINE. 



0064 U 


010046 




STRAP: nOV 


RO,-(SP) 


006416 


016600 


000002 


NOV 


2(SP).R0 


006422 


005740 




TST 


-(RO) 


006424 


111000 




novB 


(RO),RO 


006426 


00o300 




ASL 


RO 


006430 


016000 


006450 


HOV 


STRPAD(RO) ,R0 


006434 


000200 




RTS 


RO 



;:SAVE RO 

;;GET TRAP ADDRESS 

;; BACKUP BY 2 

;;GET RIGHT BYTE OF TRAP 

.-.-POSITION FOR INDEXING 

:; INDEX TO TABLE 

:;60 TO ROUTINE 



;;THIS IS USE TO HANDLE THE "6ETPRI" MACRO 



011646 

016666 000004 
000002 



000002 



STRAPZ: 



MOV 
MOV 
RTI 



(SP),-(SP) 
4{SP).2(SP) 



:;MOVE THE PC DOWN 
;:MOVE THE PSW DOWN 
;; RE STORE THE PSW 



.SBTTL TRAP TABLE 



:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.■•BY THE "TRAP" INSTRUCTION. 



ROUTINE 



006436 
004414 



005144 
005264 
005564 
004364 
006072 
006132 
007362 
007332 
007400 
007446 
007512 



STRPAD: .WORD 
JTYPE 



STRAP2 

;; CALL-TYPE 



SRDCHR 

SRDLIN 

tRDOCT 

.SC0P1 

.SAV05 

.RES05 

.MSTCLR 

.DELAY 

.ROMCLK 

.DATACLK 

.TIMER 



CALL=RDCHR 
CALL=RDLIN 
CALL=ROOCT 
CALL=SL0P1 
CALL=SAV05 
CALL=RES05 
CALL=HSTCLR 
CALL-DELAY 
CALL=RO«CLIC 
;;CALL 
;CALL=T1MER 



TRAP+H104401) TTY TYPEOUT ROUTINE 



TRAP*2(104402) TTY TYPEIN CHARACTER ROUTINE 
TRAP»3(10440'?) TTY TYPEIN STRING ROUTINE 
TRAP*4(104404) READ AN OCTAL NUMBER FROM TTY 
TRAP»5(104405) CALL TO LOOP ON CURRENT DATA HANDLER 
TRAP*6(104406) CALL TO REGISTER SAVE ROUTINE 
TRAP»7(104A07) CALL TO REGISTER RESTORE ROUTINE 
TRAP*10(104410) CALL TO ISSUE A BASTER CLEAR 
TRAPOl ',104411 ) CALL TO DELAY 
TRAP*12(10*412) CALL TO CLOCK RW ONCE 
rOATACLK TRAP*1 3(10441 3) CALL TO CLOCK DATA 
TRAP+U(104414) CALL TO DELAY A CLOCK TICK 
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cziccF.pn 08 


-JUL-8b 


08:24 




TRAP TABLE 




2226 


006502 


005724 








SINPUT 


;;CALL=1NPUT 


2227 


006504 


006164 








.CONVRT 


;;CALL= CONVRT 


2228 


006506 


0061 70 








.CNVRT 


;:CALL=CNVRT 


2229 


006510 


006060 








.ADVANCE :;CAL 


2230 










* 






2231 










§ 






2232 
















2233 












;ERROR 


HANDLER 


2234 












# 




2235 
















2236 


006512 


004737 


011340 




SERROR: 


JSR 


PCCKSUR 


2237 


006516 


032777 


010000 


172514 




BIT 


«sui2.asuR 


2238 


006524 


001406 








BEO 


XBX 


2239 


006526 


105777 


172516 






TSTB 


asTPs 


2240 


006532 


100003 








BPL 


XBX 


2241 


006534 


112777 


000207 


172510 




novB 


«207,aSTPB 


2242 


006542 


032777 


020000 


172470 


XBX: 


BIT 


«sui3,asuR 


2243 


006550 


001107 








BNE 


HALTS 


2244 


006552 


021637 


001216 






CMP 


(SP),SERRPC 


2245 


006556 


001404 








BEQ 


1$ 


2246 


006560 


011637 


001216 






nov 


(SP),$ERRPC 


2247 


006564 


105037 


001203 






CLRB 


$ERFLG 


2248 


006570 


104406 






1$: 


SAV05 


(SP>,R5 


2249 


006572 


01 1605 








nov 


2250 


006574 


162705 


000002 






SUB 


#2.R5 


2251 


006600 


01 1 504 








nov 


(R5) ,R4 


2252 


006602 


110437 


001214 






MOVB 


R4.$ITEMB 


2253 


006606 


006304 








ASL 


R4 


2254 


006610 


061504 








ADD 


(R5).R4 


2255 


006612 


006304 








ASL 


R4 


2256 


006614 


042704 


177001 






BIC 


#1 77001. R4 


2257 


006620 


062704 


001512 






ADD 


f$ERRTB,R4 


2258 


006624 


012437 


006740 






nov 


CR4)>,ERRnSG 


2259 


006630 


012437 


006752 






nov 


(R4)«,DATAHD 


2260 


006634 


011437 


006764 






nov 


(R4),DATABP 


2261 


006640 


105737 


001203 






TSTB 


SERFLG 


2262 


006644 


001403 








BEQ 


TYPnSG 


2263 


006646 


005737 


006764 






TST 


DATABP 


2264 


006652 


001040 








BNE 


TYPOAT 


2265 


006654 


104401 


001313 




TYPHS6: 


TYPE 


«SCRLF 


2266 


006660 


104401 


001313 






TYPE 


,SCRLf 


2267 


006664 


005737 


001444 






TST 


LOCK 


2268 


006670 


001402 








BEQ 


U 


2269 


006672 


104401 


010015 






TYPE 


.nASTEK 


2270 


006676 


104401 


010003 




11: 


TYPE 


.mSTN 


2271 


006702 


104417 


007120 






CNVRT 


.XTSTN 


2272 


006706 


104401 


010072 






TYPE 


,nERRPC 


2271 


006712 


104417 


007112 






CNVRT 


.ERTABO 


2274 


006716 


104401 


001313 






TYPE 


.tCRLF 


2275 


006722 


112737 


177777 


001203 




novB 


t-1,$ERfLG 


2276 


006730 


005737 


006740 






TST 


ERRnSG 


fell 


006?^ 34 


001402 








BEQ 


URKO.FH 


2276 


006756 


104401 








TYPE 




2279 


006740 


000000 






ERRHSG: 


0 




2280 


006742 








WRKO.FM 






2281 


006742 


005737 


006752 






TST 


DATAHD 



SEO 0C4 7 

TRAP+15(104415) CALL TC OCTAL # INPUT ROUTINE 

TRAP+16(104416) CALL TO 

TRAP*17(104417) CALL TO 

ADVANCE TRAP«20(104420) CALL TO ADVANCE TO NEXT TEST 



CHECK FOR SOFT SUR 
BELL ON ERROR? 
BR IF NO BELL 
TTY READY. 

DON'T WAIT IF TTY NOT READY. 

PUSH A BELL AT THE TTY. 

DELETE ERROR PRINT OUT? 

BR IF NO PRINT OUT WANTED. 

WAS THIS ERROR FOUND LAST TIHE? 

BR IF YES 

RECORD BEING HERE 

PREPARE HEADER 

SAVE ALL PROC REGISTERS 

GET THE PC OF ERROR 

GET ADDRESS OF TRAP CALL 

GET ERROR INSTRUCTION 

COPY ERROR « FOR APT HANDLING 
NULT BY TWO 
DOUBLE IT 
NOLT AGAIN 
CLEAR JUNK 
GET POINTER 
GET ERROR MESSAGE 
GET DATA HEADRER 
GET DATA TABLE 
TYPE HEADREER 
BR IF YES 

DOES DATA TABLE EXIST? 
BR IF YES. 



SHOW IT 
TYPE PC. 
SHOW IT 
GIVE A CR/LF 

NO nORE HEADER UNLESS NO DATA TABLE. 
IS THERE AN ERROR MESSAGE? 
BR IF NO. 
TYPE 

ERROR NESSAGE 
DATA HEADER? 



CZKCf 
CZKfF 

2282 

2283 

228A 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

23U 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 



HACY11 50A(1032) 08-JUL-80 08:27 PAGE 49 
08-JUL-80 08:24 TRAP TABLE 



J 4 



SEQ 0048 



006746 
006750 
006752 
006754 
006760 
006762 
006764 
006766 
006770 
006776 
007000 
007006 
007012 
007014 
007016 
007024 
007026 
007032 
007034 
007036 
007042 
007044 
007046 
007052 
007060 
007062 
007070 
007072 
007100 
007104 
007110 
007112 
007114 
007116 
007120 
007122 
007124 



007126 
007134 
007142 
007144 
007146 
007150 
007152 
007154 
007156 
007162 
007166 
007174 



001402 
104401 
000000 
005737 
001402 
104416 
OOOOGO 
104407 
122737 
001007 
113737 
004737 
000000 
000777 
022737 
001403 
005777 
100005 
010046 
016600 
000000 
012600 
005237 
032777 
001007 
032777 
001407 
013737 
012706 
000177 
000002 
000001 

006 
001460 
000001 

003 
001202 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 



006764 



000001 

001214 
004714 



004070 
172206 

000002 



001212 
000400 

002000 

001442 
001200 
172076 



002 



002 



007316 
000340 



001336 
007012 

000042 



172160 
172150 
001206 



DATAHD: 
TYPOAT; 



DATABP: 
RESREG: 
HALTS: 



000024 
000026 



6S 
9S 
3$ 



IS: 



EXITER; 



IS: 

2S: 

ERTABO: 



XTSTN: 



BEQ 

TYPE 

0 

TST 
BEQ 
CONVRT 
0 

RES05 

CHPB 

BNE 

novB 

JSR 

.WORD 

BR 

CMP 

BEQ 

TST 

BPL 

PUSHRO 

MOV 

HALT 

POPRO 

INC 

BIT 

BNE 

BIT 

BEQ 

HOV 

nov 

JMP 

RTI 
1 

.BYTE 
SAVPC 
1 

.BYTE 

STSTNM 

.•ENTER 



TYPDAT 



DATABP 
RESREG 



#APTENV.SENV 
3S 

SITEMB,6S 
PC.SATY4 

0 

9S 

«SENDAD,af42 
IS 

asuR 

EXITER 
2(SP),R0 



SERTTL 

fSUOB.aSUR 

1S 

fswio.asuR 

2S 

NEXT.SLPADR 

fSTACK.SP 

aSLPADR 



6.2 



BR IF NO 
TYPE 

DATA HEADER 
DATA TABLE? 
BR IF NO. 

SHOW 

DATA TABLE 
RESTORE PROG REGISTERS 
IS APT RUNNING ? 
SKIP APT CALL IF NOT. 
COPY ERROR *. 
CALL APT SERVICES. 
ERROR » GOES HERE. 
LOCK HERE. 

IF ACT-11 AUTOMATIC MODE, HALT!! 

HALT ON ERROR? 

BR IF NO HALT ON ERROR 

SAVE RO 

SHOW ERROR PC IN DATA LIGHTS 

HALT 

GET RO 

UPDATE ERROR COUNT 
GOTO TOP OF TEST? 
BR IF YES 
GOTO NEXT TEST? 
BR IF NO 

SET FOR NEXT TEST 
RESET SP 

GOTO SPECIFIED TEST 
SLPADR 



3.2 

HERE ON POWER FAILURE 



.SBTTL POWER DOWN AND UP ROUTINES 



172056 
007322 
007200 



000024 



.POWER DOWN ROUTINE 

SPWRDN: MOV #SILLUP,a#PWRVEC 

HOV f340,afPWRVEC*2 

HOV RO.-(SP) 

HOV R1,-{SP) 

HOV R2,-<SP) 

HOV R3,-(SP) 

HOV R4.-(SP) 

HOV R5.-(SP) 

HOV aSWR.-(SP) 

HOV SP.SSAVR6 

HOV fSPWRUP.aiPWRVEC 

HALF 



;;SET FOR FAST UP 
'PRI0:7 

•PUSh'rO on STACK 
;PUSH Rl ON STACK 
;PUSH R2 ON STACK 
;PUSH R3 ON STACK 
;PUSH R4 ON STACK 
:PUSH R5 ON STACK 
.'PUSH aSWR ON STACK 
;SAVE SP 
;;SET UP VECTOR 



CZKCF MACYll 30A(1052) 08-JUL-80 08:27 PAGE 50 
CZICCF.P11 08-JUL-80 08:2A POWER DOWN AND UP ROUTINES 



K 4 



SEQ 00A9 



2358 
2339 
2340 
2341 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2550 

2351 

2552 

2555 

2554 

2555 

2356 

2557 

2558 

2559 

2560 

2561 

2562 

2565 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2575 

2574 

2575 

2576 

2577 

2378 

2379 

2580 

2581 

2582 

2585 

2584 

2585 

2586 

2587 

25S8 

?589 

2590 

2591 

2592 

2595 



00^176 


000776 

www f r U 








BR 


.-2 










: POWER 


UP ROUTINE 


007200 


012737 


007316 


000024 

VW W W t ~ 


iPURUP: 


MOV 


ftlLLUP afPWRVEC 


007206 

W V 1 C wU 


013706 


007322 

w W ■ V L L 






nov 


SSAVR6.SP 


007212 

V w f C 1 C 


005037 

WW J ' 


007522 

w w f V W L 






CLR 


SSAVR6 


007216 


005237 


007522 




1$: 


INC 


$SAVR6 


007222 


001375 








BNE 


IS 


007224 


104401 


007562 






TYPE 


.NPFAIL 


007250 


104417 


007524 






CNVRT 


.PFTAB 


007254 


105037 


001205 






CLRB 


SERFLG 


007240 


005037 


001216 






CLR 


SERRPC 


007244 


015701 


002066 






NOV 


KNCSR.Rl 


007250 


005011 








CLR 


(R1) 


007252 


104410 








NSTCLR 




007254 


012677 


171760 






NOV 


(SP)4-,aSUR 


007260 


012605 








NOV 


(SP)*,R5 


007262 


012604 








NOV 


(SP)*,R4 


007264 


012605 








NOV 


(SP)*,R3 


007266 


012602 








NOV 


(SP)+,R2 


007270 


012601 








NOV 


(SP)+,R1 


007272 


012600 








NOV 


(SP)+,RO 


007274 


012757 


007126 


000024 




NOV 


f$PURDN.a#PURVEC 


007502 


012757 


000540 


000026 




NOV 


#540.afPURVEC«2 


007510 


104401 








TYPE 




007512 


007562 






SPURHG : 


.WORD 


NPFAIL 


007514 


000002 








RTI 




007516 


000000 






$ILLUP: 


HALT 




007520 


000776 








BR 


.-2 


007522 


000000 






SSAVR6: 


0 




007524 


000001 






PFTAB: 


1 




007526 


005 


002 




.BYTE 


5.2 




007550 


001202 








STSTNM 





007352 
007552 
007540 
007542 
007544 
007544 
007546 
007550 
007556 
007560 

007562 
007562 
007570 
007376 

007400 
007400 
007406 
007412 



:;HAN6 UP 



;;SET FOR FAST DOWN 

.•;GET SP 

;;UAIT LOOP FOR THE TTY 
;;WAIT FOR THE INC 
;;0F UORD 



; CLEAR ERROR FLAG. 
; CLEAR LAST ERROR PC 
: RESTORE DEVICE ADDRESS. 
: CLEAR THE CSR. 



;;POP 
;;POP 
;;POP 
;;POP 
;;POP 
;;POP 
;;POP 
;;SET 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



aswR 

R5 
R4 
R5 
R2 
R1 
RO 



UP THE POWER DOWN VECTOR 
;;PRI0:7 
;; REPORT THE 
;:POWER FAIL 



POWER FAILURE 
NESSAGE POINTER 



:;THE POWER UP SEQUENCE WAS STARTED 

BEFORE THE POWER DOWN WAS COHPLETE 
;;PUT THE S? HERE 



012777 
104412 
121111 

104412 
121224 
052777 
001772 
000002 



152777 
U2777 
C00002 



152777 
015677 
062746 



000020 172554 



000020 172516 



000100 172500 
000500 172472 



000002 1 72462 
1 72464 
000002 



.DELAY: 



1$: 



NOV 

RONCLK 

121111 

RONCLK 

121224 

BIT 

BEQ 

RTI 



f20,aiCNP04 



«BIT4.aKMP04 
1$ 



;NEXT UORD IS INSTRUCTION. ROMCLK PC=5504 
;P0KE CLOCK DELAY BIT 

NEXT UORD IS INSTRUCTION. ROHCLK PC=5504 

P0RT4 IBUS*11 

IS CLOCK BIT SET? 

BR IF NO 



.NSTCLR: 



BISB 
BICB 
RTI 



«Bn6.aKHCSRH :SET RASTER CLEAR 
#BIT6iBlT7.aKHCSRH .'CLEAR MASTER CLEAR AND RUN 
.-RETURN 



.RONCLK: 



BISB 

NOV 

ADD 



fBITl.aKHCSRH 
a(SP)^.aKHP06 
I2.-<SP) 



.-SET RONI 

;LOAD INSTRUCTION IN SEL6 
; ADJUST STACK 



CZKCF 


HACYll 


30A(1052) 08-JUL-80 08 


:27 PAGE 


. 51 


czKCF.pn 08 


-JUl -80 


08:24 




POWER DOWN AND 


2394 


00''416 


032777 


000100 


171614 




BIT 


2395 


007424 


001401 








BEQ 


2396 


007425 


000000 








HALT 


2397 


007430 


152777 


000003 


172432 


1$: 


BISB 


?398 


007436 


142777 


000007 


172424 




BICB 


t '»9 


007444 


000002 








ATI 


2400 














2401 


007446 








.DATACLK: 


2402 


007446 


013637 


011234 






nuv 


2403 


007452 


062746 


M A A A A ^ 

000002 






Ann 


2404 


007456 


152777 


A A A A ^ A 

000020 


4 ^ ^ i A / 

172404 


1 9 : 


D 1 CQ 


2405 


007464 


A t ^^^^ 

027777 


172376 


4 ^ 1 V 9 y 

172374 




Lnr 


2406 


007472 


142777 


AAAA'^ A 

000020 


172370 




D I rp 


2407 


007500 


005337 


011234 






UC L 


2408 


007504 


001 364 








QklC 
DNC 


2409 


007506 


000002 








DTI 


2410 


007510 


A AAA A 4 

000001 






39 : 


Ql 


2411 














2412 


007512 








T TMCD • 




2413 


007512 


013637 


A 4 4 9 i 

01 1234 






HflU 

nuv 


2414 


007516 


062746 


AA AAA '\ 

000002 






Ann 


2415 


007522 








1 1 > 




2416 


007522 


104412 










2417 


007524 


02 1 364 








MC 1 Jul 


2418 


007526 


A V ^^^^ 

032777 


A AAA A ^ 

000C02 


4 y A 

1 72340 




RIT 


2419 


007534 


A A 4 

001 772 










2420 


007536 








c« ■ 




2421 


007536 


104412 










2422 


007540 


A^ 4 ^ A 1 

021364 










2423 


007542 


A V ^^^^ 


AAA A A 1 

000002 


4 ^**T'\y 

172324 




BIT 


2424 


007550 


001372 










2425 


007552 


A AiP 

005337 


A4 4 y 

011234 








2426 


007556 


AA4 V ^ 4 

001361 








AMP 


2427 


007560 


AAAAA^ 

000002 








nil 


2428 














2429 


007562 


Af A AA 

050200 


Af 4 4 ^ ^ 

051127 


Ay VAy A 

043040 




ASCI 7 


(2) 


007620 


A 4 ^A AA 

042600 


A i ^44^ 

042116 


Af AA< A 

050040 


MFPASS* 

nc 1 Aj i# • 


ASCI 2 


(2) 


007642 


Af 4 ^ AA 

051200 


AAA 

000 








(2) 


007645 


^ A A 

200 


A/ 7C 4 ^ 

047516 


Ay ')Ay A 

042040 




ASCIZ 


(2) 


007672 


f\i i A AA 

044600 


AC 4 CI k. 

051516 


Ay T1 ')C 

043125 






(2) 


007716 


A/ ^ ')AA 

046200 


A/ 1 C 1 7 

041517 


A')A4 i T 

020113 




• A<^V A i» 


(2) 


007745 


4 AY 

103 


AC 4 4 ^ T 

051123 


020072 


d AA • 


A^ri7 


(2) 


007753 


4 

126 


Ay 4 CAC 

041505 


AOAA7^ 

020072 


NVECX: 


.ASCIZ 


(2) 


007761 


1 "^A 

120 


AC 4 C A1 

051501 


A/ OC 


HPASSX: 


.ASCIZ 


(2) 


007772 


Af 4 4 Af 

051105 


047522 


AC 4 C ^1 

051522 


HERRX: 


.ASCIZ 


(2) 


010003 


124 


AC 4 CAC 

051505 


A^A4 ^§ 

0201 24 


HTSTN: 


.ASCIZ 


(2) 


010015 


AP ^ 

052 


AAA 

000 




HASTEK: 


.ASCIZ 


(2) 


010017 


^ AA 

200 


Ay ^ c ^9 

042523 


A1 A4 'M 

020124 


mEW: 


.ASCIZ 


(2) 


010072 


A y 4 f ^A 

041520 


A^ AA9^ 

020072 


AAA 

000 


HERRPC : 


.ASCIZ 


(2) 


010077 


^ AA 

200 


AOAA/ A 

020040 


A'^AA/ A 

020040 


XHEAD: 


.ASCII 


(2) 


010136 


A1 A^ AA 

020200 


AAAAy A 

020040 


A'^AAy A 

020040 




.ASCII 


(2) 


010175 


A A 

200 


A^ A A t A 

020040 


A i 4 C ^ A 

041520 




.ASCII 


(2) 


010247 




U£0455 


Uc04)3 




.ASCIZ 


(2) 


010323 


200 


047510 


020127 


NUH: 


.ASCIZ 


(2) 


010363 


200 


051503 


020122 


CSR: 


.ASCIZ 


(2) 


010401 


200 


042526 


0521C3 


VEC: 


.ASCIZ 



L 4 



UP ROUTINES 

#SU06,aSUR .-HALT IF SU06 =T 

1$ ;BR IF SU06 =0 

.'HALT BEFORE CLOCKING INSTRUCTION 
fBIT1 '.BITO.aiCMCSRH ;CL0CK INSTRUCTION 
#BIT2.BIT1 !BITO,aKMCSRH ; CLEAR ROMO, ROni, STEP 



SEQ 0050 



a(SP)*.TEHP 

#2.-(SP) 

«BIT4,aKnCSRH 

aKHCSR.aKMCSR 

«BIT4,aKMCSRH 

TEHP 

1$ 



;PUT TICK COUNT IN TEMP 

;ADJUST STArK 

;SET STEP LU 

.•WASTE TIME 

: CLEAR STEP LU 

;DEC TICK COUNT 

;BR IF NOT DONE 

: RE TURN 



a(SP)*,TEHP 
12, -(SP) 



f2,aKnpo4 
1$ 



«2.aicnP04 

2$ 

TEBP 
IS 



MOVE COUNT TO TEMP 
ADJUST STACK 

NEXT WORD IS INSTRUCTION. HOMCLK PC=5304 

P0RT4 IBUS* REGIT 

IS PGPI clock bit CLEAR-* 

BR IF YES 

NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

P0RT4 IBUS* REG11 

IS PGB clock BIT SET? 

BR IF YES 

DEC COUNT 

BR IF NOT DONE 

RETURN 



<200>/PWR FAILED. RESTART AT TEST / 
<200>/EliO PASS CZKCF / 
<200>/R/ 

<200>/N0 DEVICES PRESENT./ 
<200>/INSUFFlClENT DATA!/ 
<200>/LOCK ON SELECTED TEST/ 

/CSR: / 
/VEC: / 
/PASSES: / 
/ERRORS: / 
/TEST NO: / 
/*/ 

<200>/SEl SWITCH REG TO KMCll'S DESIRED ACTIVE./ 

/PC: / 

MAP OF KHC11 STATUS/ 
/ 

CSR STATl STAT2 



PC 



<200>/ 
<200>/ 
<200>/ 
<200>/- 

<200>/H0W MANY KMCirs TO BE TESTED?/ 
<200>/CSR ADDRESS?/ 
<200>/VECT0R ADDRESS?/ 



STAT3/ 

AIM ^ 



CZKCF MACY11 50A(1052) 08-JUL-80 08:27 PAGE 52 

C2KCF.PU 08-JUL-80 08:24 POWER DOWN AND UP ROUTINES 



H 4 



SEQ 0051 



(2) 
(2) 
(2) 
(2) 

(c) 

(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
24S8 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 



011234 
011276 



010422 


041200 


020122 


051120 


PRIO: 


.ASCIZ 


010461 


200 


044127 


041511 


NOOU: 


.ASCIZ 


010573 


200 


053523 


052111 


LINE : 


ASCIZ 


010631 


200 


053523 


052111 


B«: 


.ASCIZ 


010671 


200 


051511 


052040 


CONN: 


.ASCIZ 


010731 


200 


047516 


042040 


NOACT: 


.ASCIZ 


010762 


053600 


044510 


044103 


nv35: 


.ASCII 


011046 


052200 


050131 


020105 




.ASCIZ 


011107 


200 


045600 


041515 


CONERR: 


.ASCIZ 


011154 


042600 


050130 


041505 


CNERR: 


.ASCIZ 


011175 


040 


045450 


041515 




.ASCIZ 




011206 






.EVEN 




011206 


000005 






XSTATQ: 


5 


011210 


006 


003 






.BYTE 


011212 


001276 








STHPO 


011214 


006 


003 






.BYTE 


011216 


001 300 








STMPI 


011220 


006 


AA7 
005 






.BY It 


011222 


001302 








$T«P2 


011224 


006 


003 






.BYTE 


011226 


001304 








$THP3 


011230 


006 


002 






.BYTE 


011232 


001306 








$THP4 



<200>/BR PRIORITY LEVEL? (4,5,6,7)?/ 

<200>/UHICH LINE UNIT? IF NONE TYPE "N", IF M8201 TYPE "1". IF M8202 TYP 
<200>/SUITCH PAC*1 (DDCMP LINE #)?/ 
<200>/SWITCH PAC#2 (BM873 BOOT ADD)?/ 
<200>/lS THE LOOP BACK CONNECTOR ON?/ 
<200>/N0 DEVICES ARE SELECTED/ 

<200>/yHICH MODEM TYPE, TYPE "D" FOR KHC11-DA (RS232C).0R/ 
<200>/TYPE "F" FOR KMC11-FA (V.35) ? / 



<200><200>/KnC11 AT NONSTANDARD ADDRESS 
<200>/EXPECTED FOUND/ 
/ (KMC) / 



6.3 
6.3 
6.3 
6,3 
6,2 



PC: / 



000000 
011276 
000000 
011340 



.EVEN 



TEMP: 
.=.♦40 
MDATA: 
.=.♦40 



.•BUFFERS FOR INPUT-OUTPUT 

0 

0 



ROUTINE USED TO CHANGE SOFTWARE SWITCH 
REGISTER USING THE CONSOLE TERMINAL 



011340 


022737 


000176 


001240 


CKSWR: 


CMP 


#SWREG,SWR 


011346 


001075 








BNE 


CKSWR5 


011350 


132737 


000001 


001 336 




BITB 


fl^SENV 


011356 


001071 








BNE 


CKSWR5 


011360 


022777 


000007 


167660 




CMP 


#7,itTKB 


011366 


00U04 








BEQ 


It 


011370 


022777 


000207 


167650 




CMP 


f207,atTKB 


011376 


001061 








BNE 


CKSWR5 


011400 


010246 






1$: 


NOV 


R2,-(SP) 


011402 


010346 








NOV 


R3.-(SP) 


011404 


010446 








NOV 


R4.-(SP) 
#-1,SWFL6 


011406 


012737 


\nm 


011544 




NOV 


011414 


005002 






CKSWR1 : 


CLR 


R2 


011416 


012704 


\nm 






MOV 


f-1,R4 


011422 


104401 


005541 






TYPE 


,tMSUR 


011426 


104417 






CKSWR2: 


CNVRT 


011430 


011600 








SOFTSW 




011432 


104401 


005552 




CKSWR3: 


TYPE 


,SNNEW 



IS THE SOFT SWR BEING USED? 
BR IF NO 

IS IT RUNNING UNDER APT? 

EXIT IF YES. 
WAS CTRL G TYPED? (7 BIT ASCII) 
BR IF YES 

WAS CTRL G TYPED? (8 BIT ASCII) 
BR IF NO 
STORE R2 
STORE R3 
STORE R4 

SET SOFT TYPE OUT FLAG 
CLEAR NEW SWR CONTENTS 
SET FLAG TO ALL ONES 
TYPE "SWR= " 

TYPE OUT PRESENT CONTENTS 
OF SOFT SWITCH REGISTER 
TYPE "NEW? " 



CZICCF 



CZKTF.PU 08" 


-JUL-80 08 -.24 




on*i3o 


AA/ 777 

004 r5f 


A1 1 C/ A 
01 1 J^O 








AAAAI C 

00001 5 






AA1 / 'it 

0014£«» 




2*t75 


Ai i / CA 


Oct '03 


AAAA1 7 

00001 C 


2A76 


Oi 1454 


AAi / i 1. 

001416 




ikll 


01 1456 


mo7n7 
Uc£'03 


AAAAT C 
0000^3 




U1 l4oc 


nni 7C/ 
001 fji* 






01 IhOh 




OOOUUr 




Ul 14f 0 


rtrti 7A0 
001 rod 




CHO 1 


Ul 


nncnoA 

UUOUUh 






rtl M Tt 


n/ 07r\x 
0*£f 03 


1 77770 




01 1 300 


000 7U£ 






01 1 50£ 


000 jO£ 




0/ BC 
£H03 


Til 1 cnA 
01 1 50*1 


OUO jUc 






01 1 500 


rtcnxno 

OjOjUc 




O/ B"? 


01 1 510 


OUOf )£ 






01 1 > I c 


U 1 C » 00 




0/ BO 


m 1 con 

0 1 1 


nftC7nA 




o/.on 


ni 1 coo 
01 1 jcc 


UU lUwc 






niicoA 








ni 1 STn 

U 1 1 7 j\J 






2493 


011534 


012604 




2A94 


011536 


012603 




0/ QC 


ni 1 CAn 
01 1 3*0 


01 cOOc 






m 1 CAO 
01 1 5*ic 


UUUcOr 




O/ 








O/ QB 
0/ QO 


n^ 1 CAA 
01 1 5hh 


nf\f\f\f\f\ 
UUUUUU 






fl1 1 CAA 


inC777 


1 A747? 

1 Or H 1 c 


c3U 1 


Alices 








ni 1 CCA 


ni 77nT 

VI 1 f f U J 


1 D r HQU 






1ftS777 


167464 




ni 1 CAA 
U 1 I 30*» 


innx7^ 






0 1 1 300 


010^^77 
U I vJ 1 1 




750^ 


011572 


042703 


000200 


2507 


011576 


000207 




2508 








2509 


011600 


000001 




2510 


011602 


006 


002 


2511 


011604 


000176 





08-JUL-80 



08:27 PAGE 55 

POWER DOWN AND UP ROUTINES 



N 4 



SEO 00S2 



4S: 
5S: 



6$: 



SUFLG: 



JSR 


PC.INCHAR 


CMP 


#15, R3 


BEQ 


5$ 


CMP 


#12, R3 


BEQ 


4S 


CMP 


#25, R5 


BEQ 


CKSUR1 


CMP 


#7,R3 


BEQ 


CKSUR4 


CLR 


R4 


BIC 


#1 77770, R3 


ASL 


R2 


ASL 


R2 


ASL 


R2 


BIS 


R3,R2 


BR 


CKSWR4 


MOV 


#. START, 6(SP) 


TST 


R4 


BNE 


6$ 


nov 


R2.aSUR 


CLR 


SUFLG 


MOV 


(SP)^,R4 


MOV 


(SP)*,R3 


MOV 


(SP)*,R2 


RTS 


PC 


0 




TSTB 


aSTKS 


BPL 


.-4 


MOV 


i»TKB,R3 


TSTB 


aSTPS 


BPL 


.-4 


NOV 


R3,a$TPB 


BIC 


#B1T7,R3 


RTS 


PC 



SOFTSU: 1 

.BYTE 
SUREG 



GET RESPONSE 

WAS IT A CR? 

BR IF YES 

WAS IT A LP? 

BR IF YES 

WAS IT CTRL U? 

BR IF YES(START OVER) 

IF CNTL G GET NEXT CHAR 

IT MUST BE A DIGIT SO CLR FLAG 
ONLY 0-7 ARE LEGAL SO MASK OFF BITS 
SHIFT R2 3 TIMES 



ADD LAST DIGIT 

GET NEXT CHARACTER 

LF WAS TYPED SO GO TO START 

IS FLAG CLEAR? 

IF NOT DON'T CHANGE SOFT SWR 

IF YES THEN WRITE NEW CONTENTS TO SOFT SWR 

CLEAR TYPEOUT FLAG 

RESTORE R4 

RESTORE R3 

RESTORE R2 

RETURN 



6.2 



CZHCf MACY11 5OA(10S2) 
CZKCF .P11 08-JUL-80 08; 



2512 

2513 

25U 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 



08-JUL- 
24 



80 



08:27 PAGE 54 
POWER DOWN AND 



B 5 



UP ROUTINES 



SEO 0053 



Ul I6U0 


UU>» jf 


AA1 /,7A 
UU I H f U 




LTtLc : 


TC T 


RnAL 1 V , 


Ul 10 Ic 


UU 1UU«» 










1 c 

>' f 


V 1 1 0 1 *• 


1 (\LLf\^ 


Ul Ur Jl 






T VDC 


klAATT 


U 1 1 OcU 


uuuuuu 








HAL 1 




U \ 1 occ 


UUUf f 0 








QO 

tSK 


• 5 '■ 
."C > 


Ul 1 0£«» 


UUUc*t 1 








fl f 
LLL 




U 1 1 OcO 


OOAI T7 
UUO 1 J 1 


AA1 CAA 
UU I JUU 






oni 
NUL 


DI lU 


ni 1 

U 1 1 OJC 


\J\JJJJf 


AA1 ^AA 
UU 1 J\}\J 










ni 1 ATA 

U 1 1 0 JO 


AA57T7 
UOc r J r 


AAAAA^ 
UUUUUh 


AA1 ^(\L 
UU 1 j\JH 




Ann 

AVI/ 


ML M 1 1 r 


ft1 1 /^LL 
U 1 1 0*»*» 


AA57T7 


AAAAin 
UUUU 1 U 


a01 ^A5 
UU 1 3U£ 




Ann 


#1 A rOCAM 


ni 1 

U 1 \Ojc 


0??7T7 


007X00 


001 507 
UU 1 J\IC 






• ^n • nAr "fcUU # l>nC AT 


U 1 1 oou 


001 00 A 








one 




U 1 1 OOc 


01 P7T7 


00? 100 

wuC 1 wU 


001 502 

UU 1 J\JC 




nuv 


MtU MAP TRFAM 


U 1 lOr U 


01 97T7 


003X02 


001 504 

UU I 3UH 




Mnu 

nuv 


JfrMT MAP Mil K 


\Jt 1 w r O 


Vjji j> 


001 500 

Uw 1 JvU 


001470 
UU 1 f u 


2t- 


RIT 

Di 1 


RUN KMArtU 


01 1 70^ 

V 1 1 r vH 


001747 








DtW 


ii 


01 1 70A> 


01 T700 


001 502 

WW 1 J\JC 






MOV 


TRFAM RO 


01 1 71 P 


01 T70P 

U 1 jr Uc 


001 504 

UU 1 JU*» 






MOV 




01 1 71 A 


01 ?0X7 
U < cU jr 


UUcUOO 






MOW 

nuv 


fROw rMr<;R 


01 1 7?? 


01 1037 

W 1 1 W J 1 


002056 






MOU 

nuv 


(RO) KMRVFC 


011726 


042737 


1 77000 


002056 




BIC 


#1 77000, KHRVEC ; 


011734 


012037 


002050 






HOV 


(R0)*,STAT1 


01 1740 


017037 


002052 






MOV 


(RO)* STAT2 


01 1 7Lit 


012037 


002054 






MOV 


(RO)* STAT3 


01 1 750 


w 1 C C J ■ 


001 324 






MOV 


(R2)*.tPASS 


011754 


012237 


001212 






HOV 


(R2)* iERTTL 


011760 


012700 


000002 






HOV 


#2,R0 


011764 


013737 


002066 


002070 




HOV 


KHCSR.KHCSRH 


011772 


005237 


002070 






INC 


KHCSRH 


01 1776 


013737 


002070 


002072 




HOV 


KHCSRH KMCTL 




005237 


002072 






INC 




01?010 


01 3737 


002072 


002074 




HOV 


KHCTL. KnP04 


012016 


060037 


002074 






ADD 


R0,KnP04 


012022 


015737 


002074 


002076 




MOV 


KHP04,KnP06 


012030 


060037 


002076 






ADD 


R0,KnPO6 


012034 


013757 


002056 


002060 




HOV 


KHRVECKHRLVL : 


012042 


060037 


002060 






ADD 


RO.KHRLVL 


012046 


013737 


002060 


002062 




MOV 


KHRLVL.ICHTVEC 


012054 


060037 


002062 






ADD 


RO.KHTVEC 


012060 


013737 


002062 


002064 




NOV 


KHTVECKHTLVL ; 


012066 


060057 


002064 






ADD 


RO.KHTLVL 


012072 


032737 


000002 


001446 




BIT 


fSUOI.STRTSU 


012100 


001447 








BEQ 


7$ ; 


012102 








4S: 






012102 


005737 


000042 






TST 


8#42 



ROUTINE USED TO "CYCLE" THROUGH UP TO 16 KMCIl'S 

THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 

AND RUNS THE SPECIFIED KHCII'S. THIS ROUTINE •MUST* 

BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 

SETUP NECESSARY. 



ARE ANY KMCirS TO BE TESTED? 
BR IF OK. 

NO KMCIl'S SELECTED!! 
STOP THE SHOW. 
DISQUALIFY CONT. SW. 
CLEAR PROC. CARRY BIT. 
UPDATE POINTER 
CATCH CARRY FROM RUN 
UPDATE POINTER 
UPDATE ADDRESS POINTER. 

KEEP GOING; NOT ALL TESTED FOR. 
RESET ADDRESS POINTER. 
RESET PASS COUNT POINTER 
IS THIS ONE ACTIVE? 
BR I F NO 

GET ADDRESS POINTER 
GET PASS COUNT POINTER 
LOAD SYSTEH CTRL. REG 
LOAD VECTOR 
CLEAR UNWANTED BITS 
LOAD STAT1 
LOAD STAT2 
LOAD STAT3 
LOAD PASS COUNT 
LOAD ERROR COUNT 
SAVE CORE THIS WAY! 



PTY LVL 
TX VEC 
TX LVL 



.■RUNNING IN AUTO HODE? 



CZuCf 




50A(10S2) 08-JU 


CZicCf.PII 08 


-JUL-80 


08:24 




01 PI n/s 


001044 








104401 


001513 


CJ'v 


ni ?i 1 4 


104415 




?'i71 




010003 




c 3 f c 


01 21 20 


000001 




CJfJ 


01212? 


001000 






012124 


001202 






012126 


000 






012127 

VIC < c * 


001 




?S77 


012130 


012700 


014U0 




012134 


022710 






012136 


012737 




7SS0 


012140 


001020 






012142 


023760 


001202 


2582 


012150 


001014 




2S83 


012152 


022760 


001202 


2584 


012160 


001010 




2585 


012162 


010037 


001206 


2586 


012166 


104401 


007642 


2587 


012172 


042737 


000002 


2588 


012200 


000412 




2589 


012202 


005720 




2590 


012204 


020027 


027716 


2591 


012210 

Vice IV 


00 1 351 


001312 


2592 


012212 


104401 


2593 


012216 


000731 




2594 






014140 


2595 


012220 


012737 


2596 


012226 


013701 


002066 


2597 


012232 


000177 


166750 


2598 








2599 








2600 








2601 








2602 








2603 








2604 








2605 








2606 








2607 








2608 


012236 






2609 


012236 


000005 




2610 


012240 


012702 


002100 


2611 


012244 


005022 




2612 


012246 


022702 


002300 


2613 


012252 


001374 




26U 


012254 

W 1 Cb ^~ 


005037 


001472 


2615 


012260 


012702 


002100 


2616 


012264 

W 1 fcfcW^ 


005037 


001470 


2617 


012270 


032737 


000001 


2618 


012276 


001002 


012740 


2619 


012300 


000137 


2620 


012304 


012737 


000001 


2621 


012312 


104415 




2622 


012314 


010323 




2625 


012316 


000001 





JUL-80 08: 



.BYTE 
-BYTE 

5$: 



27 PAGE 55 
POWER DOWN AND 



BNE 

TYPE 

INPUT 

HTSTN 

1 

1000 
STSTNM 
0 
1 

NOV 

CHP 

MOV 

BNE 

CHP 

BNE 

CMP 

BNE 

MOV 

TYPE 

BIC 

BR 

TST 

CMP 

BNE 

TYPE 

BR 



C 5 



001206 



6S: 



7$: 
8S: 



UP ROUTINES 
7$ 

.SCRLF 



SEQ 0054 



;BR IF YES 



MOV 
MOV 
JMP 



#TST1 .PO 
(PC)*,(RO) 
(PC)*,8(PC)* 
6$ 

(TSTNM,2(R0) 
6S 

f$TSTNM,4(R0) 
6$ 

RO.SLPADR 
,HR 

fSUOl^STRTSU 
8t 

(RO)* 

R0.#TLAST*10 
5S 

.SQUES 
4S 

#TST1.$LPA0R 

KHCSR.Rl 

aSLPADR 



;CHP FIRST WORD TO 12737 

;BR IF NOT SAME 
.-DOES STSTNM MATCH? 
;BR IF NO 
:IS LAST WORD OK? 
*BR IF NO 

•IT IS A LEGAL TEST SO 00 IT 



;P0P RO 

;AT END YET? 

* BR IF NO 

•YES ILLEGAL TEST NO. 
;TRY AGAIN 

; PREPARE SLPAOR ADDRESS 
:R1 = BASE KMC11 ADDRESS 
;G0 START TESTING. 



001446 



001306 



.•ROUTINE USED TO "AUTO SIZE" THE KMC11 
:CSR AND VECTOR. 

;NOTE: THE CSR HAY BE ANY WHERE IN THE FLOATING 
ADDRESS RANGE (160000:164000) 
AND THE VECTOR HAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300:770) 



.•INSURE A BUS INIT. 
.•LOAD MAP POINTER. 
.-ZERO ENTIRE MAP 
.ALL DONE? 
• BR IF NO 

•SET OCTAL NUMBER OF KHCll'S TO 0 

.•R2 POINTS TO KMC MAP 

.•CLEAR ACTIVE 

.•QUESTIONS? 

;BR IF YES 

:1F NO SKIP QUESTIONS 
.•START WITH 1 



* 

AUTO. SIZE: 




RESET 




CSRMAP: MOV 


fKH.nAP,R2 


U: CLR 


{R2)* 


CMP 


«KH.END.R2 


BNE 


1$ 


CLR 


KHNUH 


MOV 


«Kn.nAP,R2 


CLR 


KHACTV 


BIT 


fSWOO.STRTSW 


BNE 


.♦6 
7$ 


JMP 


MOV 


«1 ,ITnP4 


INPUT 




NUM 

1 





CZHCf MACYll 30a(10S2) 08-JUL-80 
CZrCf .Pn 08-JUL-80 08:24 



08:27 PAGE 56 
POWER DOWN AND 



D 5 



UP ROUTINES 



SEQ 0055 



262A 

2625 

2626 

2627 

2628 

2629 

2650 

2631 

2632 

2633 

263A 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

266S 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 



012320 
012322 
012524 
012325 
012326 
012334 
012340 
012542 
012344 
012350 
012352 
012354 
012356 
012360 
012362 
012363 
012364 
012370 
012372 
012374 
012376 
012400 
012402 
012403 
012404 
012410 
012412 
012414 
012420 
012424 
012426 
012432 
012434 
012440 
012442 
012444 
012446 
012452 
012454 
012456 
012460 
012462 
012464 
012464 
012464 

012464 
012466 
012470 
012474 
012500 
012502 
012506 
012510 
012514 
012516 



000020 




16. 






001502 




$TMP2 






000 




.BVTE 


0 




001 




.BYTE 


1 




015757 


001502 001472 


MOV 


$TMP2,KMNUH 


:KMNUW = HOW MANY 


104401 


001515 12$: 


TYPE 


,$crlf 




1 044 1 6 




CONVRT 




;TYPE WHICH KMC IS BEING DONE 


015572 




WHICH 




;$TMP4 IS WHICH KMC 


005237 


001 506 


INC 


$THP4 




104415 




INPUT 






010363 




CSR 






1 60000 




160000 






164000 




4 Z / AAA 

164000 






OOl 304 




$TMP5 






000 




.BYTE 


A 

0 




001 




.BYTE 


1 




013722 


001504 


NOV 


$TnP5, vR2) ♦ 


.STORE CSR IN MAP 


104415 




INPUT 






010401 




VEC 






A A i\ A A A 

000000 




A 

0 






000776 




lit 






001 304 




$TMP3 






000 




A W T F 

.BYTE 


0 




001 




.BYTE 


4 

1 




013712 


001304 


MOV 


# V MA V / A A \ 

$TBP3,(R2) 


;STORc VECTOR IN MAP 


104401 


4 A* 

10$: 


TYPE 






010422 




PRIO 




;ASK WHAT BR LEVEL 


004737 


01 3664 


JSR 


PC , INTTY 


;6ET RESPONSE 


A A A V 

022703 


A AAA A / 

000024 


CMP 


#24, R3 




4 A4 A 4 ^ 

101014 




BHl 


50$ 


• DD fC 1 CCC TUAU L 

;dR if Lcob THAN h 


/« A A^ A9 

022703 


A AAA^ ^ 

000027 


CnP 


#27. R3 




105411 




6L0 


50$ 


;BR Ir uKcATcR THAN r 


A 4 A^A M 

012704 


AAAA4 4 

00001 1 


nOV 


#11 ,R4 


■ ny ** uiiMOCA Ar cufcTC 

= NUnocK OF anlrTs 


006303 








. CU 1 C T DT 1 C C T 


AAf VA t 

005304 




DEC 


R4 


;DcC SHIFT COUNI 


AA4 T'Vr 

001375 




BNE 


."•4 

#170777 83 


;BK IF NUT DvNc 




1 70777 

\ f\jf 1 1 




■RIC imyANTED BITS 


050312 




BIS 


R5,(R2) 


:PUT BR LEVEL IN STATUS MAP 


000405 




BR 


8$ 


.'CONTINUE 


104401 


50$: 


TYPE 






001312 




$QUES 




.•RESPONSE IS OUT OF LIMITS 


000752 




BR 


10$ 


.-TRY AGAIN 



104401 
010461 
004737 
022705 
001417 
022705 
001412 
022705 
001405 
104401 



8$: 
9$: 
16$: 



015664 
000021 

000022 

000116 



TYPE 

MODU 

JSR 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

TYPE 



PC. INTTY 
#21. R3 
30$ 

#22. R3 
51$ 

#116. R3 
32$ 



:ASK WHICH LINE UNIT 

;6ET REPLY 

.••1" 

• < 

;"2" 





HACY11 


50A(105>2) 08- Jl 


CZKfF.PU 08 


-JUL-80 


08:24 


2680 


012520 


001312 




2681 


012522 


000760 




2682 


012524 


052722 


A « A A A A 

010000 


2683 


012530 


022222 




2684 


012532 


000475 




2685 


012534 


052712 


A A A A A 

02000C 


2686 


012540 


104401 




2687 


012542 


010671 




2688 


012544 


004 ^37 


A 4 T ^ y / 

013664 


2689 


012550 


022703 


AAA 4 T 4 

0001 31 


2690 


012554 


001406 




2691 


012556 


A ^ ^ ^ A V 

022703 


AAA4 4 A. 

0001 1 6 


2692 


012562 


A A 1 / V Z 

001436 




2693 


012564 


4 A / i A 4 

104401 




2694 


012566 


A A 4 T 4 ^ 

001312 




2695 


012570 


A A A T 

000765 




2696 


012572 


052722 


A/ AAAA 

040000 


2697 


012576 


032762 


AAAAAA 

020000 


2698 


012604 


A A4 A ^ ^ 

001027 




2699 


012606 






2700 








2701 


012606 


A f\l 1 A1 




2702 


012610 


010762 




2703 


012612 


AA. 


013664 


2704 


012616 


122703 


AAA 4 Ai 

000104 


2705 


012622 


AA4 A A i 

001004 




2706 








2707 


012624 


042762 


AA A AA i 

000004 


2708 


012632 


AAA/ 4 \ 

00041 1 




2709 








2710 


012634 


122703 


AAAi AX 

000106 


2711 


012640 


AAi y A1 

001405 




2712 








2713 


012642 


4 Ay i Ai 

104401 




27U 


012644 


AAi T i *) 

001512 




2715 


012646 


000757 




2716 








2717 


012650 


AC ^7iL 

052762 


AAAAA/ 

000004 


2718 








2719 


012656 






2720 


012656 


AAA / A^ 

000402 




2721 


012660 




n/ nnnn 


2722 


012664 






2723 


012664 


104415 




2724 


012666 


AC 

010573 




2725 


012670 


AAAAAA 

000000 




2726 


012672 


AAA V 7 7 

000377 




2727 


012674 


AA4 VAi 

001 304 




2728 


012676 


AAA 

000 




2729 


012677 


AAI 

001 




2730 


012700 


4 4 T 7^ 1 

113722 


AA4 TAy 

001304 


2731 


012704 


4 A/ / 4 C 

10441 5 




2732 


012706 






2733 


012710 


000000 




2734 


012712 


000377 




2735 


012714 


001304 





08:27 PAGE 57 
POUER DOWN AND 



32$: 



31$: 
30$! 



17$: 
440$: 



442$: 

$QUES 

443$: 

441$: 

18$: 
19$: 



$QUES 
BR 

BIS 

CHP 

BR 

BIS 

TYPE 

CONN 

JSR 

CMP 

BEQ 

CMP 

BEQ 

TYPE 

$QUES 

BR 

BIS 

BIT 

BNE 



TYPE 

HV35 

JSR 

CMPB 

BNE 

6IC 
BR 

CMPB 
BEQ 

TYPE 

BR 

BIS 



BR 
BJC 

INPUT 

LINE 

0 

377 

$THP3 

.BYTE 

.BYTE 

MOVB 

INPUT 

BN 

0 

377 
$THP3 



E 5 



UP ROUTINES 



16$ 

#BIT12,(R2)» 

(R2)*.(R2)* 

33$ 

fBIT13.(R2) 



SEQ 0056 



PC.INTTY 
#131. R3 
17$ 

#116, R3 
18$ 



30$ 

#BIT14,{R2)* 

#BIT13.-2(R2) 

19$ 



;IF NOT A 1,2 OR N TYPE "?" 

;TRY AGIAN 

;SET BIT 12 IN STAT2 IF NO LU 

;POP OVER STAT2 AND STAT3 

;SET BIT 13 IN STAT2 IF M8202 

;ASK IF LOOP-BACK IS ON 

;6ET REPLY 

;Y 

:N 



IF NOT Y OR N TYPE "?" 
TRY AGAIN 

TURNAROUND IS CONNECTED 
M8202? 
BR IF YES. 



; ASK QUESTION 

; ABOUT MODEM TTYPE 

PCINTTY ; GET ANSWER. 

#'D,R3 ; IS IT DMC11-DA? 

442$ : NO. 



#BIT2,2(R2) 
441$ 

#'F.R3 
443$ 



440$ 

#BIT2,2(R2) 



19$ 

f6lTl4.(R2)^ 



YES INDICATE IT IN STAT3 

IS IT A 0MC11-FA (V.35)? 
YES-TAKE CARE OF IT. 

NO ASK OPERATER UHATS GOING ON. 

RE ASK QUESTION 

YES V.35. RECORD IN STAT3 

END DECISION POINT. 

NO TURNAROUND 



0 
1 

$TNP3,(R2)^ .-STORE SWITCH PAC IN NAP 



CZKCF 


BACY11 


30A(1052) 


08-JUL 


-80 08:27 PAGE 58 


CZKCf.PII 08 


-JUL-80 08:24 




POWER 


DOWN AND 




012716 


000 








.BYTE 


2737 


012717 


001 








• BYTE 


2738 


012720 


113722 


001304 






novB 


2739 


012724 


005722 






33S: 


TST 


2740 


012726 


005337 


001302 




DEC 


2741 


012732 


001200 








BNE 


27A2 


012734 


0001 37 


013272 






JHP 


27A3 


012740 


012701 


160000 




7$: 


HOV 


27<>4 


012744 


012737 


013364 


000004 


2>: 


HOV 


2745 


012752 


005011 






CLR 


2746 


012754 


005711 








T C T 

TST 


2747 


012756 


001135 








BNE 


2748 


012760 


005061 


000006 






CLR 


2749 


012764 


005761 


000006 






TST 


2750 


012770 


001 1 30 








BNE 


2751 


012772 


012711 


002000 






HOV 


2752 


012776 


005061 


000004 






CLR 


2753 


013002 


012761 


125252 


000006 




hOV 


2754 


013010 


052711 


020000 






BIS 


2755 


013014 


022761 


125252 


000004 




CMP 


2756 


013022 


001113 








BNE 


2757 










:AT THIS POINT 


2758 


013024 








21S: 




2759 


013024 


010122 






22S: 


nov 


2760 


01 3026 


012711 


001000 




15S: 


nov 


2761 


013032 


005061 


000004 


000006 




CLR 


2762 


013036 


012761 


122113 




nov 


2763 


013044 


052711 


000400 






BIS 


2764 


013050 


012761 


021264 


000006 




nov 


2765 


013056 


052711 


000400 






BIS 


2766 


01 3062 


122761 


000377 


000004 




CHPB 


2767 


013070 


001003 








BNE 


2768 


013072 


052712 


010000 






BIS 


2769 


013076 


000436 








BR 


2770 


013100 


032761 


000002 


000004 




BIT 


2771 


013106 


001403 








BEQ 


2772 


013110 


052712 


060000 






BIS 


2773 


013114 


000427 








BR 


2774 


013116 


032761 


000010 


A AA AA / 

000004 




BIT 


2775 


013124 


001023 








BNE 


2776 


013126 


012761 


000100 


A AAAA / 

000004 




NOV 


2777 


013134 


012761 


122113 


AAAAA^ 

000006 




HOV 


2778 


013142 


052711 


000400 






BIS 


2779 


013146 


012761 


021264 


000006 




NOV 


2780 


013154 


052711 


000400 






BIS 


2781 


013160 


032761 


000010 


AAAAAi 

000004 




BIT 


2782 


013166 


001402 








BEQ 


2783 


013170 


052712 


040000 






BIS 


2784 


013174 


005722 






20S: 


TST 


2785 


013176 


012761 


021324 


A A n A A^ 

000006 




nov 


2786 


013204 


012711 


001400 






nov 


2787 


013210 


156122 


000004 


l/UvuvO 




BISB 


2788 


013214 


012761 


021344 




nov 


2789 


013222 


012711 


OOUOO 






nov 


2790 


013226 


156122 


000004 






BISB 


2791 


013232 


005722 








TST 



F 5 



UP ROUTINES 

0 
1 

$TMP5.(R2>* 

(R2) + 

$TMP2 

12S 

13S 

#160000. Rl 
«6S,af4 

(Rl) 
(R1) 
31 

6(R1) 
6(R1) 
3$ 

#BIT10.{R1) 
4(R1) 

#125252, 6(R1) 
#BIT13-(R1) 
#125252. 4(R1) 
3S 

!T IS ASSUMED 



SEO 0057 



; STORE SWITCH PAC IN MAP 
;POP OVER STAT3 
;DEC KMC COUNT 
;BR IF MORE TO DO 
.•CONTINUE 

;SET FOR FIRST ADDRESS TO BE TESTED 
;SET FOR NON-EXISTANT DEVICE TIME OUT 
.•CLEAR SELO 
;IF KHCll KMCSR S/B 0 

;IF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO r.MCn 
.-CLEAR SEL6 

;IF KMC 11 THEN KMRIC S/B -01 
;BR IF NOT KMC11 
.-SET ROMO 
.•CLEAR SEL4 
:WRITE THIS TO SEL6 
.•WRITE IT! 
;WAS IT WRITTEN? 
; IF NO IT IS NOT CRAM 
THAT Rl HOLDS A KMC11 CSR ADDRESS. 



R1,{R2)* 
«BIT9.(R1) 
4(R1) 

#122113.6{R1) 
#BIT8,(R1) 
#021264. 6(R1) 
#6ir8.(Rl) 
#377.4{R1) 
.♦10 

#BIT12.(R2) 
20t 
«BIT1,4(R1) 
.♦10 

«B!T13!BIT14.(R2 
20$ 

#BIT3.4(R1) 
20$ 

#BIT6,4(R1) 

#122113. 6(R1) 

#BIT8.(R1) 

#021264. 6{R1) 

#BIT8.(R1) 

«BIT3.A(R1) 

20$ 

#BIT14.(R2) 

(R2)* 

#021324. 6(R1) 

#BIT9!B1T8,(R1) 

4(R1),(R2)* 

#021344. 6(R1) 

#BIT8IBIT9.(R1) 

4(R1).{R2)+ 

(R2) + 



.■STORE CSR IN CORE TABLE. 
: CLEAR LINE UNIT LOOP 
.•CLEAR P0RT4 

.'LOAD INSTRUCTION (CLR DTR) 
."CLOCK INSTRUCTION 
.•LOAD INSTRUCTION 
.•CLOCK INSTRUCTION 
:IS IT ALL ONES? 
* BR IF NO 

;1F YES. NO LINE UNIT. SET STATUS BIT 

:IS SWITCH A ONE? 
;BR IF M9201 

) ;M8202 ASSUME CONNECTOR 
; CONNECTOR ON) 
;IS MRDY SET 

:BR IF M8201 NO CONNECTOR (ON LINE) 
.-LOAD P0RT4 
;LOAD INSTRUCTION 
;CLOCK INSTRUCTION(SET DTR) 
.-LOAD INSTRUCTION 

; CLOCK INSTRUCTION(REAO MODEH REG) 
;IS MRDY SET NOW? 
:BR IF NO CONNECTOR 
:SET STATUS BIT FOR CONNECTOR 
.POP POINTER 

;PUT INSTRUCTION IN P0RT6 
;P0RT4 LU 15 

.•STORE DOCMP LINE # IN TABLE 
.•P0RT6 INSTRUCTION 
;CL0CK"INSTR. 
.•STORE Bn873 ADD IN TABLE 
;POP OVER STAT3 



CZicrf 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

28U 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

284 S 

2846 

2847 



HACYll 3OA(10i2) 
08-JUL-80 OS 



08-JUL-80 

:24 



08:27 PAGE 59 
POWER DOWN AND 



G 5 



UP ROUTINES 



SEO 0058 



013234 
013236 
013242 
013250 
013252 
013254 
013260 
013264 
013270 
013272 
013276 
013302 
013304 
013310 
013314 
013316 
013322 
013326 
013330 
013332 

0 J 3340 
013346 
013352 
013356 
013360 
013362 
013364 
013370 

013372 
013374 
013376 

013400 
013406 
013410 
013416 
013424 
013430 
013434 
013440 
013442 
013446 
013450 

01 3454 
013456 
013464 
013470 
013472 
013476 
013504 
013506 
013514 
013520 
013526 
013532 



005011 
005237 
022737 
OOUIC 
005011 
005061 
062701 
022701 
001230 
005037 
005737 
001423 
013701 
010137 
000241 
006137 
005237 
005301 
001371 
012737 
013737 
000137 
104401 
005000 
000000 
000776 
012716 
000002 

000001 
002 
001306 

032737 
001114 
012737 
012737 
012702 
012700 
012701 
010120 
012721 
022021 
020127 
101771 
013737 
006037 
103063 
012704 
016437 
011201 
012761 
012711 
012761 
012711 
105200 









CLR 

V k 


(R1 ) 


■CLEAR ROMI 


001472 






INC 


KHNUfl 


.•UPDATE DEVICE COUNTER 


000020 


001472 




CMP 


#20 KHNUH 


■ARE MAX. NO. OF DEV FOUND? 








13$ 


■YES DON'T LOOK FOR ANY MORE. 








CLR 


(R1 ) 


■CLEAR BIT 10 


000006 






CLR 


6(R1 ) 


; CLEAR SEL 6 


000010 

WW 1 v 




14$: 


ADD 


#10, R1 


.-UPDATE CSR POINTER ADDRESS 


164000 

1 w~ wv 






cnp 


#164000. SI 






BNE 


2$ 


:BR IF MORE ADDRESS TO CHECK. 


001470 




13$: 


CLR 


KMACTV 




001472 






TST 


KMNUn 


;WERE ANY KMCH'S FOUND AT ALL? 






BEC 


5$ 


.•ERROR AUTO SIZER FOUND NO KMCII'S IN THIS SYS. 


001472 






nov 


KMNUM,R1 




001476 






nov 


R1 .SAVNUM 


;SAVE NUMBER OF DEVICES 






4$: 


CLC 






001470 






ROL 


KMACTV 


;GENERATE ACTIVE REGISTER OF DEVICES. 


001470 






INC 


KMACTV 


;SET THE BIT 








DEC 


R1 










BNE 


4$ 


;BR IF MORE TO GENERATE 


000006 

WWW 


000004 

WWW" 




nov 


#6,a#4 


;RESTORE TRAP VECTOR 


001470 


001474 




nov 


KMACTV, SAVACT 


.-SAVE ACTIVE REGISTER 


013400 






J HP 


VECMAP 


;G0 FIND THE VECTOR NOW. 


007645 




5$: 


TYPE 


.MERR2 


.•NOTIFY OPR THAT NO KMCII'S FOUND. 






CLR 


RO 


;MAKE DATA LIGHTS ZERO 








HALT 




.•STOP THE SHOU 








BR 


.-2 


.•DISABLE CONT. SU. 


013260 




6$: 


NOV 


#14$, (SP) 


.'ENTERED BY NON-EXISTANT TIHE-OUi. 




RTI 


;RETURN TO MAINSTREAM 



002 



WHICH: 1 



000001 001446 VECMAP: 



000340 
013572 
002100 
000300 
000302 

000004 

001000 

001470 
001276 

000012 
013650 

000200 
001000 
121111 
001400 



000022 
000020 



001276 

177776 
000004 
000006 



1$: 



2$: 



7$: 



.BYTE 2,2 
$TMP4 

BIT fSUOO«STRTSy 

BNE 5$ 

MOV f340.a«22 

MOV f4$,af20 

MOV fKM.MAP,R2 

nov f300,R0 

nov f302.R1 

nov fti.(R0)« 

nov #4.(R1)* 

cnp (r6>*.(ri)» 

CMP R1 ,#1000 

BLOS It 

nov KMACTV, $Tnpo 

ROR $TnPO 

BCC St 

nov #12.R4 

nov BRLVL(R4),PS 

nov (R2),R1 

nov #200. 4 (R1) 

nov #BIT9,(R1) 

nov #121111. 6(R1) 

nov #BIT9!BIT8,(R1) 

INCB RO 



;SEr lOT TRAP PRIO TO 7 
;SET lOT TRAP VECTOR 
;SET SOFTWARE POINTER 
.•FLOATING VECTORS START HERE. 
;PC OF lOT INSTR. 
.START FILLING VECTOR AREA 
;WITH .♦2; lOT 
;ADD 2 TO RO ♦Rl 

:BR IF MORE TO FILL 
; STORE TEnPORALLY 
;BRING OUT A BIT 
;BR IF ALL DONE 
;R4 IS INDEX REGISTER 
.SET PS TO 7 



.-SET ROMI 

;PUT INSTRUCTION IN P0RT6 
.•FORCE AN INTERRUPT 
.•STALL 



liKU HACYll 30a(1052) 08-JUL-80 08:27 PAGE 60 
f/icff.Pli 08-JUL-80 08:2A POWER DOWN AND 







vv } Ji O 








Die 




\J\jJ JO 


162704 

IOC* v*f 


000002 








CO 


ni XS4P 


001 404 








RFQ 


CO J i 


ni ?S44 


0164^7 




177776 

1 r r r f o 




MOV 






tJ0ft767 

VVV • U r 












ni ^ss4 






wwwwwC 


61- 
o# • 


RI ^ 

Did 




01 ?S62 


00501 1 






3S- 


CLR 

W L> 


CO J J 


01 3S64 


062702 

wOC • wC 


000010 

www 1 W 






ADD 


?8S6 


013570 


000735 

WW I J J 








BR 

w 


2857 


013572 


051662 

W ^ 1 wwc 


000002 

wwwww t 




4$: 


BIS 


?8S8 

CO Jv 


013576 


042762 

W^C * wC 


000007 

WWWWW ' 


000002 

WW V WC 




BIC 

WAV 


28S9 


01 3604 

V 1 ^w W^ 


016405 


013652 

W I ^w ^ c 






MOV 


C wV^W 


01 3610 

W 1 ^W < V 


006305 








ASL 


COQ 1 


01 3612 


006305 








ASL 


cooc 


013614 

W 1 ^w • ~ 


006305 

WWW Jv J 








ASL 


c oo ^ 


013616 

W 1 JO 1 o 


006305 








ASL 


?864 

COO"t 


01 3620 

W 1 ^WCW 


042705 

W^ c » w •/ 


170777 






BIC 


2865 


01 3624 


050562 


000002 

V W V W Vfc 






BIS 


2866 

C WWW 


013630 


022626 

Wfc Wfc w 








cnp 


2867 

COw ' 


013632 


012716 

V ( C ' < w 


013562 

W ■ ^ ^ Wb 






MOV 


2868 

c Www 


01 3636 

V I a/W VW 


000002 

WW W Wb 








RTI 


2869 

b WW ' 


01 3640 


012737 


004134 


000020 

WWWW b w 


5$: 


MOV 


2870 

CO • w 


013646 

w 1 ^W~W 


000207 

WW Wb w r 








RTS 


2871 

C w f * 














2872 

CO f C 


01 3650 

w 1 ^w 


000000 

www www 






BRLVL : 


PRO 


287? 

cor J 


013652 

W 1 VW a/C 


000000 

WWWW WW 








PRO 


2874 

CO » 


01 3654 


000200 

VWWk WW 








PR4 


2875 

CO f y 


013656 


000240 

www c ~ w 








PR5 


2876 

b w r w 


01 3660 

W ' ^WWW 


000300 

www ^ w w 








PR6 


2877 


01 3662 

W I «/ W Wb 


000340 








PR 7 


2878 

C W ( w 














2879 














2880 

c www 


01 3664 


105777 


165354 




INTTV: 


TSTB 


2881 


01 3670 


100375 








BPL 


2882 


013672 


017703 


165350 






NOV 


2883 


013676 


105777 


165346 






TSTB 


'884 


01 3702 


100375 








BPL 


2885 


01 3704 


010377 


165342 






MOV 


2886 

b. www 


013710 


042703 


000240 






BIC 


2887 


013714 


000207 








RTS 


2888 














2889 


013716 








API. SIZE: 


2890 


013716 


000005 

W W W V w ^ 








RESET 


2891 


013720 


010046 








MOV 


2892 

LW r& 


013722 


010146 








MOV 


2893 


013724 


010246 








MOV 


2894 


013726 


010346 








MOV 


2895 


013730 


005037 


014132 






CLR 


2896 

C w rV 


013754 


005037 


014136 






CLR 


2897 

C W T » 


013740 


013700 

W ■ • WW 


001 376 






NOV 


2898 


013"'44 


010037 


001476 






MOV 


2899 


013750 


012701 


001346 






NOV 


2900 


013754 


013737 


001 372 


014134 




MOV 


2901 


013762 


113757 


001366 


014132 




HOVB 


2902 


01 3770 


113737 


001 567 


014136 




NOVB 


2903 


013776 


013737 


001374 


001470 




MOV 



H 5 



UP ROUTINES 



.-2 

«2,R4 

6t 

BRLVL(R4).PS 
7$ 

#5300, 2(R2) 
(R1) 
#10, R2 
2$ 

(SP),2(R2) 

#7.2(R2) 

BRLVL*2{R4),R5 

R5 

R5 

R5 

R5 

#170777. R5 
R5,2(R2) 
(SP)*,(SP)* 
#3$.(SP) 

#tSC0PE,a#20 

PC 



.•LEVEL 
.•LEVEL 
;LEVEL 
.•LEVEL 

;LEVEL 
;LEVEL 



SEQ 0059 



;F0R TIME TO INTERUPT 
.-GET NEXT LOWEST PS LEVEL 
;BR IF R4 = 0 

.•MOVE NEXT LOWER LEVEL IN PS 
;BR TO DELAY 

;N0 INTERUPT ASSUME 300 AT LEVEL b AND FIX KMC11 LATER 

.-CLEAR rOMI 

;POP SOfTWARE POINTER 

.•KEEP GOING 

.-GET VECTOR ADDRESS 

.•CLEAR JUNK 

;GET BR LEVEL OF KMC11 
.•SHIFT LEVEL 4 PLACES 
.•TO THE LEFT FOR THE 
; STATUS TABLE 

; CLEAR UNWANTED BITS 
;PUT BR LEVEL IN STATUS TABLE 
;POP ICT JUNK OFF STACK 
;SET FOR RETURN 

; RESTORE SCOPE VECTOR 

.•ALL DONE WITH "AUTO SIZING" 



aSTKS 
.-4 

aSTKB.R3 

8STPS 

.-4 

R3.8$TPB 

#BIT7!BIT5.R3 

PC 



.•WAIT FOR DONE 

;PUT CHAR IN R3 

;WAIT UNTIL PRINTER IS READY 

:ECHO CHAR 

:MASK OFF LOWER CASE 
.•RETURN 



RO.-(SP) 

RI.-(SP) 

R2,-(SP) 

R3.-{SP) 

VECTR 

PRIRTY 

scowl. RO 

RO.SAVNUM 
#tMARS1.R1 
tBASE.BASE 
IVECTI. VECTR 
IVECTUl, PRIRTY 
SOEVM.KMACTV 



;;PUSH RO ON STACK 

;;PUSH R1 ON STAClk 

;;PUSH R2 ON STACK 

;;PUSH R3 ON STACK 

; CLEAR THE LOCAL VARIABLE 

; CLEAN UP LOCAL VARIABLE 

; GET THE DEVICE COUNT 

; SAVE THE NO. OF DEVICES 

; GET EXTRA INFO. BITS POINTER 

; GET BASE CSR ADDRESS 

; GET THE VECTOR 

; GET THE PRIORITY 

; SAVE THE KMC'S SELECTED ACTIVt 
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POWER DOWN AND UP ROUTINES 



1 5 



SEQ 0060 



290A 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
29U 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 

mt 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 



01/.004 
0UO12 
0U016 
0UO22 
014024 
0U030 
014032 
0U036 
014042 
014046 
014050 
014052 
014056 
014060 
014062 
014064 
014066 
014072 
014074 
014076 
014100 
014102 
014110 
014116 
014120 
014120 
014122 
014124 
014126 
014130 
014132 
014134 
014136 



OUUO 
014142 
014150 

014156 
014162 
014166 
014170 
014172 
014176 
014202 



013737 
012702 
012703 
005023 
022703 
003374 
012703 
013723 
112163 
006213 
006213 
053713 
006313 
006313 
00631 3 
006313 
053723 
012223 
005723 
005300 
001407 
062737 
062737 
000747 

012603 
012602 
012601 
012600 
000207 
000000 
000000 
000000 



000004 
012737 
012737 

005077 
012702 
104412 
021224 
016104 
042704 
012705 



00 


AA ^ i 




MOV 


KnAt 1 V ,3 AVAL 1 


001402 






nuv 


ifCnnun 6^ 
m9uum\J ,nc 


AA^ i A A 

002100 








avM IIAD OT 




5* : 






AA^ YAA 

002300 






\ nr 


ifm cyn oX 
mh.n . CNU ,nj 






or T 

DU 1 


X*. 


002100 






nuv 


Jf^H MAD OX 


Ai / IT/ 




1 9 : 


nUV 


Q4CC fDt\4 


UUUUU1 






nuvD 










ACD 


(OX'i 








&CD 


(BX'i 


014136 






BtC 
Di 3 


PRIRTY (D'^) 






ACl 


IOX\ 








ACl 


(OX^ 
\Kjl 








&CI 

AdL 










ACI 
A jL 




rtl A1 X'i 






R I C 








nu¥ 


(R9W (R^W 








1 J 1 


\n J 1 ^ 








vc \. 


RO 








DCW 




AAAAl A 

UUUUlU 


ftl L 1 T/. 
U 1 H 1 JH 




Ann 


• 1 U f DA9C 


UUUU 1 U 


AI / 1 ■»5 






• 1 V # VC L 1 n 








BD 
BN 


1ft 
1 * 






5* • 












nuv 










nuv 










PlOV 


(SP)>,R1 








nov 


{SP)*,RO 








RTS 


PC 






VECTR: 


.WORD 


0 






BASE: 


.WORD 


0 






PRIRTY: 


.WORD 


0 



SAVE THE ACTIVE REGISTER 

GET ADDRESS OF FIRST DEVICE DESCRIPTOR WORD 

GET POINTER TO DEVICE HAP 

CLEAR DEVILE MAP 

IS WHOLE DEV. MAP CLEARED? 

NO, THEN GO ON. 

RESTORE DtV.KAP POINTER. 

LOAD CSR ADDrtESS 

GET EXTRA INrO. BITS 

SET IT IN RIGHT POSITION. 

SET IT i»J RIGHT POSITION. 

GET PRIORITY IN STAT1 

SET THEM IN RIGHT POSITION 



GET THE VECTOR IN STATU 
GE' THE STAT2 FROM DDWXX 
SK.P OVER STAT3 
COUNT BY 1 
ALL DONE? 

INCREMENT BASE CSR ADDRESS BY 10 
INCREMENT VECTOR ADDRESS BY 10 
SET THE NEXT MAP ENTRY 

:POP STACK INTO R3 

;POP STACK INTO R2 

;POP STACK INTO R1 

;POP STACK INTO RO 
RETURN 



;*««tft«««***t*«***t******.*t TEST 1 ♦.••••t..«. 

.♦OUT CONTROL REGISTER REAO/ONLY TEST 

;*D0 A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

;*BITS ARE IN THE CORRECT STATE 



TEST 1 



000001 
014214 

165704 
000011 



000004 
000054 
000020 



001202 
001442 



TST1; 



SCOPE 

NOV 

MOV 



f1,(TSTNM 
#TST2.NEXT 



CLR iKMCSR 

MOV f11,R2 
ROMCLK 

021004 !<20«11> 

MOV 4{R1),R4 

BIC #54. R4 

MOV f20.R5 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMCll ADDRESS 

.CLEAR SELO 

.•SAVE R2 FOR TYPEOUT 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;P0RT4 LINE UNIT REG 11 
.PUT 'TOUND" IN R4 
.•CLEAR UNKNOWN BITS 
;PUT 'tXPECTED" IN R5 
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LINE UNIT READ/ONLY TESTS 



J 5 



SEO 0061 



2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

298A 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

5014 

3015 



014206 120504 

014210 001401 

0U212 104002 
014214 



014232 
0U236 
014240 
014242 
014246 
014252 
014254 
014256 
014260 
014262 



014262 
014264 
014272 

014300 
014302 
014306 
014310 
014312 
014316 
014322 
014326 
014330 
0U332 
014334 



1$; 



014214 000004 TST2: 
014216 012737 000002 001202 
014224 012737 014262 001442 



012702 
104412 
021244 
016104 
042704 
005005 
120504 
001401 
104002 



000012 



000004 
000017 



000004 

012737 000003 
012757 014334 



001202 
001442 



TST3: 



104410 
012702 
1044 i2 
021264 
016104 
042704 
012705 
120504 
001401 
104002 



000013 



000004 
000213 
000100 



CHPB R5,R4 
BEQ U 
ERROR 2 



;IS OUT READY SET? 
:BR IF YES 
.-ERROR IN LU 11 



TEST 2 

;*IN CONTROL REGISTER READ/ONLY TEST 

.••00 A MASTER CLEAR. VERIFY THAT ALL REAO/ONLY 

;*BITS ARE IN THE CORRECT STATE 



TEST 2 



SCOPE 

nov 
nov 



#2,tTSTN« 
#TST3.NEXT 

#12, R2 



nov 

ROnCLK 

021004 !<20«12> 



MOV 
BIC 
CLR 
CMPB 
BEQ 
ERROR 



4(R1),R4 
#17. R4 
R5 

R5.R4 
IS 

2 



; LOAD THE NO. Of THIS TEST 

; POINT TO THE START OF N£XT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

;SAVE R2 FOR TYPEOUT 

.NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 

;P0RT4 LINE UNIT REG 12 

;PUT "TOUND" IN R4 

.■CLEAR UNKNOWN BITS 

.PUT 'tXPECTED" IN R5 

.-ARE ALL BITS CLEARED? 

;BR IF YES 

.•ERROR IN LU 12 



TEST 3 *********** 
.-•MODEM CONTROL REGISTER REAO/ONLY TEST 
;*D0 A MASTER CLEAR. VERIFY THAT ALL READ/ONLY 
.-•BITS ARE IN THE CORRECT STATE 



TEST 3 



SCOPE 

MOV #3.STSTNn 
MOV #TST4.N£XT 

MSTCLR 

MOV #13,R2 
ROMCLK 

021004 I<20*13> 



MOV 

BIC 

MOV 

CMPB 

BEQ 

ERROR 



4(R1).R4 
#213, R4 
#100, R5 
R5,R4 
IS 
2 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START Of NEXT TEST, 

;R1 CONTAINS BASE KMC11 ADDRESS 

:NASTER CLEAR KMC11 

.SAVE R2 fOR TYPEOUT 

:NEXT WORD IS INSTRUCTION. RONCLK PC=5304 

.•P0RT4 LINE UMIT REG 15 

;PUT 'TOUND" IN R4 

.CLEAR UNKNOWN BITS 

.PUT "EXPECTED" IN R5 

.ARE RING, DTR. AND MODEM READY SET? 

;BR IF YES 

.-ERROR IN LU 13 
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CZKCF.Pll 08-JUL-80 08:24 LINE UNIT READ/ONLY TEST^ 



K 5 



SEQ 0062 



3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

30^2 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

5041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

5067 

3068 

3069 

3070 

3071 



014554 
014556 
014544 

014552 
014554 
014560 
014562 
014364 
014570 
014574 
014400 
014406 
014410 
0U414 
014420 
014422 
014424 
014426 



014426 
014450 
014456 
014444 

014452 
014454 
014460 
014466 
014470 
014472 
014474 
014476 
014502 
014506 
014512 



000004 
012757 
012737 

104410 
012702 
104412 
021364 
016104 
042704 
012705 
052757 
001404 
042704 
042705 
120504 
001401 
104002 



000004 
012757 
012757 
012757 

104410 
012702 
0^2761 
104412 
122112 
104412 
021245 
012705 
116104 
042704 
120504 



000004 
0U426 



000017 



001202 
00U42 



TST4! 



000004 
000206 
000051 

020000 002050 

000040 
000040 



IS: 



000005 001202 
014566 001442 
014460 001444 



TST5! 



000012 

000040 000004 U: 



000040 
000005 
000337 



tt.t.ttt* TEST 4 

;*nAINTENANC£ REGISTER READ/ONLY TEST 

.••DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

;*BITS ARE IN THE CORRECT STATE 



TEST 4 



SCOPE 

nOV #4,STSTNM 

MOV #TST5,NEXT 

nSTCLR 

MOV #17, R2 
ROMCLK 

021004!<20*17> 

MOV 4(R1),R4 

BIC #206, R4 

MOV #51. R5 

BIT #BIT13,STAT1 

BEQ .^2 

BIC #40, R4 

BIC #BIT5,R5 

CMPB R5,R4 

BEQ 1$ 

ERROR 2 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START CF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.•MASTER CLEAR KMCll 

;SAVE R2 FOR TYPEOUT 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 

.•P0RT4 LINE UNIT REG 17 

;PUT 'TOUNO" IN R4 

: CLEAR UNKNOWN BITS 

;PUT "EXPECTED" IN R5 

;IS LU AN M8202 OR MS^OI? 

;BR IF M8201 

.-MASK OFF SI BIT IF H8202 

:SI BIT IS UNKNOWN ON AN n8202 

.-ARE SI AND ICIR SET? 

;BR IF YES 

.-ERROR IN LU 17 



;•*•**••**«*•«•*••••••••••«• TEST 5 

;*LINE UNIT REGISTER WRITE/READ TEST 

;*SET B1T5 IN LU REGISTER 12. VERIFY IT IS SET 

;*CLEAR BITS IN LU REGISTER 12. VERIFY IT IS CLEAR 



TEST 5 



SCOPE 

MOV 

NOV 

mv 

USTCLR 

MOV 

MOV 

ROMCLK 

122112 

ROMCLK 

021245 

MOV 

MOVB 

BIC 

CMPB 



f5,tTSTNR 
fTST6.llEIT 
fit, LOCK 



#12. R2 
f40,4(R1) 



#40, R5 
5(R1),R4 
#337, R4 
R5,R4 



; LOAD THE NO. OF THIS TEST 
; POINT TO THE START OF NEXT TEST, 
; ADDRESS FOR LOCK ON DATA. 
;R1 CONTAINS BASE KMCll ADDRESS 
.•MASTER CLEAR KMCll 
.SAVE REGISTER ADDRESS FOR TYPEOUT 
.LOAD P0RT4 ^ 
;MEXT yORD IS INSTRUCTION. ROMCLK PC=5504 
;SET BITS IN LU-12 

.'NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

;READ LU-12 

.PUT 'tXPECTED" IN R5 

.•PUT "FOUND" IN R4 

; CLEAR UNWANTED BITS 

;IS BITS Sf T? 
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LlHf UNIT WRITE/READ TESTS 



SEO 0063 



5072 
5073 
5074 
5075 
3076 
3077 

5078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

5088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

5105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

31 U 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

^123 

3124 

3125 

3126 

3127 



014514 
014516 
0';4520 
014522 
014530 
014534 
014536 
014540 
014542 
014544 
014546 
014552 
014556 
014560 
0U562 
014564 



014566 
014570 
014576 
0U604 

014612 
014614 
014620 
014626 
014630 
014632 
014634 
014636 
01464? 
014646 
0U65? 
0U654 
014656 
014660 
014662 
014670 
0U674 
014676 
014700 
014702 
014704 
0U706 
0U712 
014716 



001401 
104005 
104405 
012737 
005061 
104412 
122112 
104412 
021245 
005005 
116104 
042704 
120504 
001401 
104003 
104405 



000004 
012737 
012737 
012737 

104410 
012702 
012761 
104412 
122117 
104412 
021365 
012705 
116104 
042704 
120504 
001401 
104003 
104405 
012737 
005061 
104412 
122117 
104412 
021365 
005005 
116104 
042704 
120504 



014530 001444 
000004 



000005 
000337 



2$: 
3S: 



4S: 



000006 001202 
014726 001442 
014620 001444 



TST6: 



000017 

000001 000004 U: 



000001 
000005 
000376 



21'. 

014670 001444 
000004 3$: 



000005 
000376 



BEO 
ERROR 

SCOPl 

MOV 

fLR 

ROnCLK 

122112 

ROnCLK 

021245 

CLR 

HOVB 

BIC 

CMPB 

BEQ 

ERROR 

SCOPl 



2t 

5 

#3$A0CK 

4(R1) 



R5 

5(R1),R4 
#357. R4 
R5,R4 
4( 
3 



BR IF YES 

ERROR, BIT 5 IS NOT SET 
SCOPE SUBTEST (SU09=1) 
NEy SCOPl 
LOAD P0RT4 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
CLEAR BIT 5 IN LU-12 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
READ LU-12 

PUT "EXPECTED" IN R5 
PUT "FOUND" IN R4 
CLEAR UNWANTED BITS 
IS BIT5 CLEAR? 
BR IF YES 

ERROR, BIT5 IS NOT CLEAR 
SCOPE SUBTEST (SU09s1) 



TEST 6 

;*LINE UNIT REGISTER WRITE/READ TEST 

:*SET Bin IN LU REGISTER 17, VERIFY IT IS SET 

:*CLEAR Bin IN LU REGISTER 17, VERIFY IT IS CLEAR 



TEST 6 



SCOPE 

nov 
mv 

NOV 

HSTCLR 

nov 

NOV 

ROMCLK 

122117 

ROnCLK 

021365 

nov 
novB 

BIC 

CHPB 

BEO 

ERROR 

SCOPl 

nov 

CLR 

ROnCLK 
122117 
ROnCLK 
021365 
CLR 

novB 

BIC 
CHPB 



ff6,tTSTNn 

#TST7.NEXT 

fIS.LOCK 



#17. R2 
«1,4(R1) 



#1,R5 
5(R1),R4 
f376,R4 
R5,R4 

2i 

3 

f3»,L0CK 

4(R1) 



R5 

5(R1),R4 
#376, R4 
R5,R4 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

; ADDRESS FOR LOCK ON DATA. 

R1 CONTAINS BASE KHCH ADDRESS 

nASTER CLEAR KnCII 

SAVE REGISTER ADDRESS FOR TYPEOUT 

LOAD P0ftT4 

NEXT WORD IS INSTRUCTION, RONCLK PC=5304 
SET BIT1 IN LU-17 

NEXT WORD IS INSTRUCTION, RONCLK PC=5304 
READ LU-17 

PUT "EXPECTED" IN R5 
PUT "FOUND" IN R4 
CLEAR UNWANTED BITS 
IS BIT1 SET? 
BR IF YES 

ERROR. BIT 1 IS NOT <;ET 
SCOPE SUBTEST CSW09=1) 
NEW SC0P1 
LOAD P0RT4 

NEXT WORD IS INSTRUCTION, RONCLK PC=5504 
CLEAR BIT 1 IN LU-17 

NEXT WORD IS INSTRUCTION. RONCLK PC=5304 

READ LU-17 

PUT "EXPECTED" IN R5 

PUT "FOUND" IN R4 

CLEAR UNWANTED BITS 

IS BIT1 CLEAR? 



CZKCF 


HACY11 


30a(10S2) 08-JU 


CZKCF.P11 08 


_ II II _fiA 

" JUL~BU 


vO . c*» 


3128 


014720 


Uv I'lU 1 




3129 


014722 


1 ftiftOT 

1 U*l VU J 




3130 


014724 






3131 








3132 








3133 








3134 








3135 








3136 








3137 








3138 








3139 








3140 








3U1 








3U2 


014726 




000007 


3U3 


014730 




3U4 


014736 




01 51 36 


3U5 


014744 


01 P7X7 


014764 


3U6 








3U7 


014752 






3U8 


014754 


01 ?70? 

VIC' V/c 


00001^ 

vv vv 1 J 


3U9 


014760 


w 1 C » WW 


000001 


3150 


014764 






3151 


014764 


V 1 wVO 1 


000004 


3152 


014770 


0^77^1 


000257 

vvvC J f 


3153 


014776 


1 WHH 1 C 




3154 


015000 


1 ??1 1 X 




3155 


015002 






3156 


01 5004 


0?1 




3157 


015006 






3158 


015010 


043705 

W*» C'VJ 


Q00257 


3159 


015014 


11 61 04 


000005 


3160 


015020 


0AP704 


000257 


3161 


01 5024 


1PQ504 

1 Cw Jv^ 




3162 


01 5026 


001401 




3163 


015030 






3164 


015032 






3165 


01 5034 


000241 




3166 


015036 






3167 


015040 






3168 


015042 


A1 57X7 
vie* ^1 


015056 


3169 


015050 


01 2700 


000001 


3170 


015054 


0051 00 




3171 


015056 






3172 


015056 


010061 


000004 

WWW" 


3173 


015062 


04P761 




3174 


015070 


10441? 




3175 


015072 


17711^ 

1 CC I 1 J 




3176 


015074 


104412 




3177 


015076 


021265 

VC ICO 




3178 


015100 


010005 




3179 


015102 


042705 


000257 


3180 


015106 


116104 


000005 


5181 


015112 


042704 


000257 


3182 


015116 


120504 




3183 


015120 


001401 
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LINE UNIT URITE/READ TESTS 



n 5 



SEO 0064 



4S: 



001202 
001442 
001444 



TST7: 



64S: 



000004 



001444 



000004 



65S: 



69S: 
67$: 



BEQ 4$ 
ERROR 3 
SC0P1 



;BR IF YES 

.■ERROR. BIT1 IS NOT CLEAR 
; SCOPE SUBTEST (Sy09>1) 



;**ttt**«ttt***t**tt****tt** TEST 7 •••••• 

;«LINE UNIT REGISTER WRITE/READ TEST 
;*fLOAT A 1 THROUGH LINE UNIT REGISTER 13 
;*FLOAT A 0 THROUGH LINE UNIT REGISTER 13 



TEST 7 



SCOPE 
MOV 

nov 
nov 



#7,»TSTN« 

#TST10,NEXT 

«64$.L0CK 



MSTCLR 

HOV f13.R2 
nov #1,R0 



MOV 
BIC 

ROMCLK 
122100! 
ROnCLK 
21005 !< 

nov 

BIC 

nova 

BIC 

cnpB 

BEQ 

ERROR 

SC0P1 

CLC 

ROLB 

BNE 

nov 
nov 

COM 



R0.4(R1) 
#257.4(R1) 

13 

13«20> 
R0,R5 
#2^7. R5 
5(R1),R4 
f257.R4 
R5.R4 
65$ 
3 



RO 
64$ 

#67$. LOCK 

f1.R0 

RO 



nov R0.4(R1) 
BIC #257.4(R1) 
ROnCLK 
122100113 
ROnCLK 

21005!<13«20> 
nov R0,R5 
BIC #257. RS 
nova 5(R1).R4 
BIC #257, R4 
CnPB R5.R4 
BEQ 68$ 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

: ADDRESS FOR LOCK ON DATA. 

:R1 CONTAINS BASE KnCIl ADDRESS 

.-nASTER CLEAR KHCII 

;SAVE REGISTER ADDRESS FOR TYPEOUT 

.•START WITH BIT 0 

;PUT PATTERN INTO P0RT4 
;CLEAR UNWANTED BITS 

;NEXT yORD IS INSTRUCTION. ROWCLK PC=5504 

;nOV DATA TO IBUS REGISTER 13 

:NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

.READ FROM IBUS REGISTER 13 

.PUT EXPECTED IN R5 

; CLEAR UNWANTED BITS 

;PUT "FOUND" INTO R4 

.CLEAR UNWANTED BITS 

;DATA CORRECT? 

;BR IF YES 

: ERROR 

;SW09=1? 

.•CLEAR CARRY 

:SHIFT BIT IN RO 

;IF RO'D THEN DONE 

;NEW SC0P1 

;START WITH BIT 0 

.CHANGE TO FLOATING ZERO 

;PUT PATTERN INTO P0RT4 
.CLEAR UNWANTED BITS 

.NEXT WORD IS INSTRUCTION. ROHCLK PC=530<. 

;nOV DATA TO IBUS REGISTER 13 

.NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 

;READ FROM IBUS REGISTER 13 

;PUT EXPECTED IN R5 

.CLEAR UNWANTED BITS 

.PUT "FOUND" INTO R4 

.CLEAR UNWANTED BITS 

;OATA CORRECT? 

;BR If YES 
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LINE UNIT WRITE/READ TESTS 



N 5 



SEO 0065 



3184 

3185 

5186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

32'. 6 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

5235 

3236 

3237 

3238 

3239 



015122 
015124 
015126 
015130 
015132 
015134 



015136 
015140 
015146 
015154 

015162 
015164 
015170 
015174 
015174 
015200 
015202 
015204 
01 5206 
015210 
015212 
015216 
015220 
015222 
015224 
015226 
015230 
015232 
015234 
015242 
015246 
015250 
015250 
015254 
015256 
015260 
015262 
015264 
015266 
015272 
015274 
015276 
015300 
015302 



104003 
104405 
005100 
000241 
106100 
001347 



000004 
012737 
012737 
012737 



010061 
104412 
122114 
104412 
021305 
010005 
116104 
120504 
001401 
104003 
104405 
000241 
106100 
001360 
012737 
012700 
005100 

010061 
104412 
122114 
104412 
021305 
010005 
116104 
120504 
001401 
104003 
104405 
005100 



68(: 



000010 
015312 
015174 



001202 
001442 
001444 



TST10: 



104410 

012702 000014 
012700 000001 



000004 



000005 



64$: 



015250 
000001 



000004 



000005 



001444 



65S: 



69S: 
67S: 



ERROR 

SC0P1 

COH 

CLC 

ROLB 

BNE 



3 

RO 

RO 
69S 



.-ERROR 
;SU09=1? 

.•CHANGE TO FLOATING 1 
: CLEAR CARRV 
:SHIFT BIT IN RO 
;IF ROsO THEN DONE 



;t**f TEST 10 

.••LINE UNIT REGISTER WRITE/READ TEST 

;«FL0AT A 1 THROUGH LINE UNIT REGISTER 14 

;»FLOAT A 0 THROUGH LINE UNIT REGISTER 14 



TEST 10 



SCOPE 
NOV 
NOV 
NOV 



IIO.ITSTNH 

#TST11,NEXT 

«64$,L0CK 



NSTCLR 

NOV #14. R2 
MOV «1 ,R0 

NOV R0.4(R1) 
ROMCLK 
122100114 
RONCLK 

21005!<14*20> 



NOV 

novB 

CNP8 

BEQ 

ERROR 

SC0P1 

CLC 

ROLB 

BNE 

NOV 

NOV 

CON 



R0,R5 
5(R1).R4 
R5.R4 
65t 



RO 
64t 

#67$.L0Clt 

#i,r6 

HO 



NOV R0.4(R1) 
RONCLK 
122100!U 
RONCLK 

21005!<14*20> 
NOV R0,R5 
N0V6 S(R1).R4 



68): 



CMPB 

BEQ 

ERROR 

SC0P1 

CON 



R5,R4 
68i 
3 

RO 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

; ADDRESS FOR LOCK ON DATA. 

;R1 CONTAINS BASE KNC11 ADDRESS 

;NASTER CLEAR KNC11 

;SAVE REGISTER ADDRESS FOR TYPEOUT 

.•START WITH BIT 0 

.PUT PATTERN INTO P0RT4 

;NEXT WORD IS INSTRUCTION. RONCLK PC=5304 

.-NOV DATA TO IBUS REGISTER 14 

:NEXT WORD IS INSTRUCTION, RONCLK PC=5304 

:READ FRON IBUS REGISTER 14 

.PUT EXPECTED IN R5 

;PUT "FOUND" INTO R4 

.DATA CORRECT? 

;BR IF YES 

.-ERROR 

:SW09=1? 

; CLEAR CARRY 

.-SHIFT BIT IN RO 

:IF R0«0 THEN DONE 

;NEW SCOPl 

.•START WITH BIT 0 

.CHANGE TO FLOATING ZERO 

;PUT PATTERN INTO P0RT4 

;NEXT WORD IS INSTRUCTION. RONCLK PC=5304 

;NOV DATA TO IBUS REGISTER 14 

;NEXT WORD IS INSTRUCTION, RONCLK PC=5304 

;READ FRON IBUS REGISTER 14 

;PUT EXPECTED IN R5 

:PUT "FOUND" INTO R4 

;DATA CORRECT? 

:BR IF YES 

.•ERROR 

;SU09=1? 

; CHANGE TO FLOATING 1 
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B 6 



SEQ 0066 



32A0 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

5290 

3291 

5292 

3293 

5294 

3295 



015304 
015306 
015310 



015330 
015332 
015354 
015336 
015342 
015346 
015350 
015352 
015354 



015354 
015356 
015364 

015572 
015574 
015576 
015400 
015404 
015410 
015412 
015414 
015416 



000241 
106100 
001 556 



015512 000004 
015514 012757 
015522 012757 



104410 
104412 
021324 
016104 
115705 
120504 
001401 
104031 



000004 
012737 
012757 

104410 
104412 
021544 
016104 
115705 
120504 
001401 
104051 



000011 
015554 



000004 
002052 



001202 
001442 



TST11 



1$: 



000012 
015416 



000004 
002055 



001202 
001442 



TST12: 



1$: 



CLC 

ROLB RO 
BNE 69t 



;CLEAR CARRY 
:SHIFT BIT IN RO 
;IF R0=0 THEN DONE 



TEST 11 ******* 

;*SWITCH PAC TEST 

.•♦THIS TEST READS SWITCH PAC#1 

.••THIS SWITCH PAC CONTAINS THE DDCMP LINE » 



TEST 11 



SCOPE 

MOV #11.$TSTNH 
MOV #TST12,NEXT 



MSTCLR 

ROMCLK 

021324 

MOV 

MOVB 

CMPB 

BEQ 

ERROR 



4(R1),R4 

STAT2.R5 

R5,R4 

IS 

51 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

.■MASTER CLEAR KMC11 

:NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 

;P0RT4 LU15 

;PUT 'TOUND" IN R4 

;PUT "EXPECTED" IN R5 

;SW OK? 

;BR IF YES 

:ERROR. SWITCH PAC READ ERROR 



:«*t«t«*«***««t« TEST 12 

.••SWITCH PAC TEST 

.••THIS TEST READS SWITCH PAC#2 

.••THIS SWITCH PAC CONTAINS THE BM875 BOOT ADD 



TEST 12 



SCOPE 

MOV #12.STSTNH 
MOV «TST13,NEXT 



MSTCLR 

ROMCLK 

021544 

MOV 

MOVB 

CMPB 

BEQ 

ERROR 



4(R1),R4 

STAT2+1.R5 

R5,R4 

1$ 

51 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

.•MASTER CLEAR KMCll 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

;P0RT4^LU16 

;PUT 'TOUND" IN R4 

;PUT "EXPECTED" IN R5 

.•SW OK? 

:BR IF YES 

;ERROR. SWITCH PAC READ ERROR 



;««*t**«*«t**t**«*«*«******* TEST 15 •••••••••- 

.••LINE UNIT CLOCK TEST 

;^THIS TEST VERIfYS THAT THE LU INTERNAL CLOCK 



C 6 
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3296 .••(BIT 1 IN LU-17) IS WORKING 

3297 

3298 

3299 ; TEST 13 
3300 

3301 ♦ * 

3302 015A16 000004 TST13: SCOPE 

3303 015420 012737 000013 001202 MOV #13.tTSTNM ; LOAD THE NO. OF THIS TEST 

3304 015426 012737 015516 001442 MOV fTSTU.NEXT ; POINT TO THE START OF NEXT TEST. 

3305 :R1 CONTAINS BASE KHCII ADDRESS 

3306 015454 104410 HSTCLR ;MASTER CLEAR KHC11 

3307 015436 005037 011234 CLR TEHP ; PREPARE FOR DELAY 

3308 015442 1S: 

3309 015442 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3310 015444 021364 021364 ;P0RT4 LU-17 

3311 015446 032761 000002 000004 BIT #2.4(R1) ;IS CLOCK BIT SET? 

3312 015454 001004 BNE 21 :BR IF YES 

3313 015456 005237 011234 INC TEMP ; DELAY 

3314 015462 001367 BNE 1$ .'DELAY FINISHED? 

3315 015464 104004 ERROR 4 ; ERROR BIT IS STUCK CLEAR 

3316 015466 005037 011234 2t: CLR TEHP ;PREPARE FOR DELAY 

3317 015472 3*: 

3318 015472 104412 ROMCLK ;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

3319 015474 021364 021364 ;P0RT4 LU-17 

3320 015476 032761 000002 000004 BIT #2,4(R1) ;IS ClOCK BIT CLEAR? 

3321 015504 001404 BEO 41 ;BR IF YES 

3322 015506 005237 011234 INC TEHP .'DELAY 

3323 015512 001367 BNE 3» ;BR IF DELAY NOT DONE 

3324 015514 104004 ERROR 4 .-ERROR BIT IS STUCK SET 

3325 015516 4$: 
3326 

3328 ..t TEST U • 

3329 .••OUT DATA SILO TEST 

3330 ;*SET son AND LOAD OUT DATA SILO 

3331 .-•VERIFY THAT OCOR SET, INDICATING THAT THE 

3332 .-•CHARACTER IS AT THE BOTTOM OF THE OUT SILO 

3333 ;:*».*.*.*tM.*.tt»»«*t»ft***»*ttt.*»».*f.».«..t««*..«.... 

3334 

3335 ; TEST U 

3336 ; — — — - 

3558 015516 000004 TSTU: SCOPE 

5559 015520 012757 000014 001202 HOV #U,»TST|« ; LOAD THE NO. OF THIS TEST 

5540 015526 012757 015616 001442 MOV fTSTIS.MEXT .SO^SLP.l^li^IliSIcS'c 

33^1 :R1 CONTAINS BASE KHCII ADDRESS 

5542 015554 1 04410 USTCLR .-MASTER CLEAR KMC11 

5545 015556 012711 004000 MOV #BIT11.(R1) JSET LINE UNIT LOOP 

5544 015542 012761 000001 000004 MOV #1,4<R1) ; LOAD P0RT4 WITH BI TO ^ 

5545 015550 104412 ROMCLK ;NEXT yORD IS INSTRUCTION. ROMCLK PC=5504 

354 7 015554 1 04412 loMcil InUt^SoRD IS INSTRUCTION. ROMCLK PC=5504 

5548 015556 1 22110 1 22110 .-LOAD OUT DATA SILO 

5549 015560 1 04414 000002 TIMER, 2 :WAIT FOR OCOR ^ , 

3550 015564 012702 000017 MOV #17.R2 ;SAVE ADDRESS FOR TYPEOUT 

5551 0 5570 104412 ROMCLK ;NEXT yORD IS INSTRUCTION. ROMCLK PC=S304 



SEQ 0067 



CZKCf 




30A(10S2) 08-JU 


CZttCF.PII 08 


-JUL-80 


08:24 




U1 33f c 


021364 




55?3 


U 1 ?3 f 


016104 


000004 


533*» 


U 1 30UU 


042704 


000357 




U 1 30Uh 


012705 


000020 


33 JO 


U 1 30 1 u 


120504 




53>f 


U 1 30 1 c 


001401 




J J JO 


U 1 30 1 *• 


104005 






U 1 3Q lO 














330 1 








jjOC 








330 J 








3 jOm 








3307 








3 jOO 








330f 








33dO 








330T 








JJIV 








33f 1 








XX75 
33r c 


U 1 30 1 O 


000004 




XX7t 

33r J 


w 1 30CU 


012737 


000015 


XX7L 


U 1 30cO 


012737 


015754 


XX7^ 
33' 3 








33r O 


U 1 303<* 


104410 




XX77 

33f r 


yj 1 303u 


012711 


004000 


TT7B 

33r 0 


ni ^A^3 

\J 1 30HC 


012761 


000001 


33f T 


U 1 303U 


104412 




jjO\J 


U 1 ?0?c 


122111 








104412 




JJOC 


V 1 JOJQ 


122110 




3303 


ni SAM) 

w 1 300v 


004737 


030260 




ni ^ftfiL 


104413 


000002 


jjOj 


ni SA7n 

U 1 JQ 1 V 


012702 


000011 


XXHA 

JJOO 


ni SA74 


104412 




XXH7 

jjOr 


niSA7A 

U 1 30 r u 


021224 




XXMl 
jjOO 


ni s7on 

\f \ Jf wv 


016104 


000004 


XXM 

J JOT 


ni S7nA 


042704 


000257 


XXOO 

Jjrv 


nis7in 


012705 


000120 


JJT 1 




120504 




JJtC 


015716 


001401 




XX9X 

JJTJ 


ni S7?o 

V 1 ? ' cv 


104005 




jjy* 


ni 57?? 

U 1 Jf cc 






XX9^ 

JJrJ 


ni57?? 


012702 


00001 3 


XXQA 


ni 57?A 


104412 




XXQ7 


ni57tn 


021264 




XXQH 

jjtO 


ni ^7X7 
w 1 ? ' jc 


016104 


000004 


XXVi 

JJTT 


01 57^ 

VI?' 


042704 


000337 


J^\PJ 


01574? 

VI ? • ^c 


012705 


000040 




015746 
VI?' ■•u 


120504 






01 5750 


001401 




5*03 


015752 


104005 




5404 


015754 






3405 








3406 








3407 
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BASIC TRANSMITTER TESTS 



D 6 



SEa 0068 



IS: 



021364 

nov 

BIC 

NOV 

fWPB 

BEQ 

ERROR 



4(R1),R4 
#357, R4 
#20, R5 
R5.R4 
1$ 
5 



;P0RT4 LU 17 

;PUT 'TOUND" IN R4 

.•CLEAR UNWANTED BITS 

;PUT "EXPECTED" IN R5 

;IS OCOR SET? 

;BR IF YES 



• *************************** TEST 15 
••DDCHP TEST OF RTS AND OUT ACTIVE 
;*SET SON AND LOAD OUT DATA SILO 
.•♦SINGLE STEP 2 DATA CLOCKS, VERIFY 
;*THAT RTS AND ACTIVE ARE SET 



TST15: 



; TEST 15 
SCOPE 

mv #i5.(TSTNn 

MOV #TST16.NEXT 



U: 



2S: 



MSTCLR 

MOV 

MOV 

ROMCLK 

122111 

ROMCLK 

122110 

JSR 

DATACLK, 
NOV 
ROMCLK 
021224 
MOV 
BIC 
MOV 
CMP8 
BEQ 
ERROR 

MOV 

ROMCLK 
021264 
MOV 
BIC 
MOV 
CMPB 
BEQ 
ERROR 



#BITn.(Rl) 
#1,4(R1) 



PC. OCOR 



#11. R2 



4(R1),R4 
#257. R4 
#120,R5 
R5,R4 

n 

5 

#13. R2 



4(R1).R4 

#337, R4 

#BIT5.R5 

R5.R4 

2$ 

5 



************************************* 

; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

.•MASTER CLEAR KMC11 

;SET LINE UNIT LOOP 

:LOAO P0RT4 WITH BITO 

:NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
.SET SOM 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;LOAD OUT DATA SILO 

:WAIT FOR OCOR 

; CLOCK DATA FOUR TIMES 

.'SAVE ADDRESS FOR TYPEOUT 

.-NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;P0RT4 LU 11 

.PUT 'TOUND" IN R4 

: CLEAR UNWANTED BITS 

;PUT "EXPECTED" IN R5 

;IS ACTIVE SET? 

:BR IF YES 



;SAVE ADDRESS FOR TYPEOUT 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

:P0RT4 LU 13 

;PUT EXPECTED IN R4 

;CLEAR UNWANTED BITS 

:PUT "EXPECTED" IN R5. RTS SHOULD BE SET 
;IS RTS OK? 
;BR IF YES 
:RTS ERROR 



TEST 16 



L. 



E 6 
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3408 ;«TEST OF OUT CLEAR 

3409 :*SET SOH AND LOAD OUT DATA SILO 

5410 ;*SIN6LE STEP DATA CLOCK. SET OUT CLEAR 

3411 .•♦VERIFY THAT OCOR.RTS, AND ACTIVE ARE CLEARED 

3412 • • • 

3413 

3414 ; TEST 16 

3415 ; 

3417 015754 000004 TST16: SCOPE 

3418 015756 012737 000016 001202 NOV #16.$TSTNH ; LOAD THE NO. OF THIS TEST 

3419 015764 012737 016152 00U42 HOV #TST17,NEXT ; POINT TO THE START OF NEXT TEST. 

3420 CONTAINS BASE KHCII ADDRESS 

3421 015772 104410 MSTCLR .-MASTER CLEAR KMC11 

3422 015774 012711 004000 MOV #BIT11,(R1) ;SET LINE UNIT LOOP 

3423 016000 012761 000001 000004 MOV #1.4(R1) ;LOAO P0RT4 WITH BITO 

3424 016006 104412 ROMCLK ;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

3425 016010 122111 122111 ;SET SOM 

3426 016012 104412 ROMCLK ;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

3427 016014 122110 122110 ;LOAD OUT DATA SiLO 

3428 016016 004737 030260 JSR PC.OCOR ;UAIT FOR OCOR 

3429 016022 104413 000002 DATACLK. 2 ;CLOCK DATA FOUR TIMES 

3430 016026 012761 000200 000004 MOV fBIT7.4(R1) ;SET BIT7 IN P0RT4 

3431 016034 1 0^.412 ROMCLK .-NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

3432 016036 122111 122111 ;SET OUT CLEAR 

3433 016040 104413 000001 DATACLK, 1 ;6IVE A TICK TO CLEAR RTS 

3434 016044 012702 000017 MOV #17. R2 .SAVE ADDRESS FOR TYPEOUT 

3435 016050 104412 ROMCLK ;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

3436 016052 021364 021364 ;P0RT4 LU 17 

3437 016054 016104 000004 MOV 4(R1).R4 ;PUT "TOUND" IN R4 

3438 016060 042704 000357 BIC #357, R4 ;CLEAR^UNUANTEO BITS^ 

3439 016064 005005 CLR R5 ;PUT 'tXPECTED" IN R5 

3440 016066 120504 CMPB R5.R4 :1S OCOR CLEARED? 

3441 016070 001401 BEO 1$ :BR IF YES 

3442 016072 104005 ERROR 5 

3443 016074 IS: 

3444 016074 012702 000013 MOV #13, R2 ;SAVE ADDRESS FOR TYPEOUT 

3445 016100 1 04412 ROMCLK .'NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

3446 016102 021264 021264 ;P0RT4 LU 13 

3447 016104 016104 OOOOOA MOV 4(R1).R4 ;PUT EXPECTED IN R4 

3448 016110 042704 OOC ' BIC 1337. R4 ;CLEAR UNyANTEO BITS 

3449 0161 U 005005 CLR R5 :PUT "EXPECTED" IN R5. RTS SHOULD BE CLEARED 

3450 016116 120504 CMPB R5,R4 :IS RJS OK? 

3451 016120 001401 BEO 2$ ;BR IF YES 

3452 016122 104005 ERROR 5 ;RTS ERROR 

3454 016124 012702 000011 MOV #11, R2 ;SAVE ADDRESS FOR TYPEOUT 

5455 0 6 30 104412 ROMCLK ;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

3456 016132 021224 021224 ;P0RT4 LUll.. 

5457 016134 016104 000004 MOV 4(R1).R4 ;PUT 'TOUND" IN R4 

5458 016140 012705 000020 MOV #BIT4,R5 •9?'-I OUT READY SHOULD BE SET 

5459 016144 120504 CMPB R5.R4 ;IS ACTIVE CLEAR? 
3460 016146 001401 BEO 3$ ;BR IF YES 

5461 016150 104005 ERROR 5 ;ERROR ACTIVE NOT CLEARED 

5462 016152 31: 
546 3 



SEQ 0069 
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-JUL-80 08:24 


y*o'* 








3<iD J 
















y*o f 
























XL7n 

JH I U 
















































XL7f\ 


ni A1 57 


000004 






ni^i 54 


01 7737 


00001 7 

wvvw 1 r 


^78 


01611^? 

U 1 O 1 OC 


017737 


016334 


^79 












104410 






01A172 


01 771 1 

VIC* 1 1 


004000 

WW"* WWW 




016176 


(\C\L7X7 

WW** f 


Ot041P 








000001 

WWWWW 1 




016710 








01671? 


i??iii 






016714 


01270S 

vie* 


000000 

wwwVww 


^87 


016720 


0047X7 


W Jw*» 1 C 




016774 


010^61 


000004 




016730 








016737 


1?P1 10 
ICC 1 1 V 






n^A7XL 




0X0760 




016740 


005003 








010S0P 

U 1 w ^VC 






016244 


104411 


00000? 

V vvvvc 


^95 


016250 


104413 


CQ0001 

V www • 




016254 


106002 




'M97 


016256 


103005 




^98 


016260 


004737 


030226 




016264 


103406 




^500 


016266 


104006 

1 VwW 






016270 


000404 




5502 


016272 


004737 


030??6 

W^WC c w 


3503 


016276 


103001 




3504 


016300 


104006 




3505 


016302 






3506 


016302 


005203 

W ^C V J 




3507 


016304 


022703 


000010 

WWWW 1 w 


3508 


016310 


001357 




3509 


016312 


10441 3 


000014 

WWW 1 ^ 


3510 


016316 


10441? 




3511 


016320 


021264 

wC ' Cw^ 




351? 


01632? 


032761 

W ^C • W 1 


000040 

WWWW"*w 


3513 


016330 


001401 




35U 


016332 


104034 




5515 


016334 






3516 








3517 








3518 








3519 
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BASIC TRANSMITTER TESTS 



F 6 



001202 
001442 



000004 



TST17: 



1$: 



2S: 
3S: 



41: 



TEST 17 

•DDCMP TRANSHITTER TEST 

•SINGLE CLOCK THE CHARACTER 0 

•VERIFY EACH BIT POSITION AS IT 

•PASSES 'HE BIT WINDOW (SI BIT) 

•ON AN ERROR. R3 CONTAINS BIT POSITION OF FAILURE 



TEST 17 



SCOPE 

nov 

MOV 

NSTCLR 
MOV 
JSR 
MOV 

RONCLK 

122111 

MOV 

JSR 

MOV 

ROMCLK 

122110 

JSR 

CLR 

MOV 

DATACLK, 

DATACLK, 

RORB 

BCC 

JSR 

BCS 

ERROR 

BR 

JSR 

BCC 

ERROR 



#17,$TSTNM 
#TST20,NEXT 



#BIT11,(R1) 

PC.OUTR"^y 

f1.4(R1) 



fO,R5 .-LOAD 

PCOUTRDY 

RS,4(R1) 



PC.OCOR 
R3 

R5.R2 



R2 
2$ 

PC.GETSI 

3$ 

6 

3$ 

PC.GETSI 

3t 

6 



INC R3 

CMP f10.R3 

BNE It 

DATACLK. 14 

ROMCLK 

021264 

BIT fBIT5.4(Rl) 

BEQ 4$ 

ERROR 34 



; LOAD THE NO. OF THIS TEST 
; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
iMASTER CLEAR KMC11 
SET LINE UNIT LOOP 
;UAIT FOR OUT-READY 
SET BITO IN P0RT4 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
SET SOM! 
CHARACTER IN R5 FOR TYPEOUT 
;UAIT FOR OUT-READY 
;LOAD P0RT4 WITH CHARACTER 
;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;LOAD OUT DATA 
;WAIT FOR OCOR TO SET 
CLEAR BIT COUNTER 
;LOAD CHARACTER IN R2 
;2 TICKS TO SET UP TRANSMITTER 
:SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
SHIFT NEXT SOFTWARE BIT IN TO CARRY 
;BR IF CARRY CLEAR 
;GET THE WINDOW 
;BR IF BIT IS A MARK 
; ERROR BIT WAS A SPACE 
rONTINE WITH TEST 
;GET THE WINDOW 
;BR IF BIT IS A SPACE 
; ERROR BIT WAS A NARK 

NEXT BIT 
DONE YET? 
BR IF NO 

CLOCK TRANSMITTER U MORE TICKS 
NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 
PORT4.LU-13 

RTS SflOULD BE CLEAR NOW 
BR IF YES 

ERROR. RTS NOT CLEAR 



;«DDCNP TRANSMITTER TEST 



TEST 20 



G 6 
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CZKCF.Pn 08- JUL-80 08:24 BASK TRANSMITTER TESTS 

3520 ; •SINGLE CLOCK THE CHARACTER 125 

3521 ;*VERIFY EACH BIT POSITION AS IT 
5522 .••PASSES THE BIT WINDOW (SI BIT) 

3523 :*0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 

3524 ; ••••• 

3526 ; TEST 20 

3527 ; 

3529 016334 000004 tsT20: SCOPE 

3530 016336 012737 000020 001202 MOV #20,$TSTNM ; LOAD THE NO. OF THIS TEST 

3531 016344 012737 016516 001442 MOV #TST21.NEXT ; POINT TO THE START OF NEXT TEST. 

3532 :R1 CONTAINS BASE KMCll ADDRESS 

3533 016352 104410 MSTCLR ;MASTER CLEAR KHCll 

3534 016354 012711 004000 MOV #B1T11,(R1) ;SET LINE UNIT LOOP 

3535 016360 004737 030412 JSR PC.OUTRDY ;WAIT FOR OUT-READY 
3556 016564 012761 000001 000004 MOV #1,4(R1) ;SET BITO IN P0RT4 

3537 016572 104412 ROMCLK ;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

3538 016374 122111 122111 ;SET SOM! 

3539 016376 012705 000125 MOV #125. R5 ;LOA0 CHARACTER IN R5 FOR TYPEOUT 

3540 016402 004737 030412 JSR PC.OUTRDY ;WAIT FOR OUT-READY 

3541 016406 010561 000004 MOV R5.4(R1) ;LOAD P0RT4 WITH CHARACTER 

3542 016412 104412 ROMCLK .-NEXT yORO IS INSTRUCTION, ROMCLK PC=5304 
3545 016414 122110 122110 ;LOAO OUT DATA 

3544 016416 004737 030260 JSR PC.OCOP .-WAIT FOR OCOR TO SET 

3545 016422 005005 CLR R5 ; CLEAR BIT COUNTER 

5546 016424 010502 MOV R5,R2 ;LOAD CHARACTER IN R2 

5547 016426 104415 000002 DATACLK, 2 ;2 TICKS TO SET UP TRANSMITTER 

5548 016452 104415 000001 1$: DATACLK 1 ;SHIFT NEXT BIT IN THE WINDOW (SI BIT) 

5549 016456 106002 R0R8 R2 .-SHIFT NEXT SOFTWARE BIT IN TO CARRY 

5550 016440 105005 BCC 2S ;BR IF CARRY CLEAR 

5551 016442 004757 050226 JSR PC.GETSI •SIM^LV^??^^ 

5552 016446 105406 BCS 5t ;BR IF BIT IS A NARK 
5555 016450 104006 ERROR 6 .-ERROR BIT WAS A SPACE 

5554 016452 000404 BR 3$ ;CONTINE «ITH TEST 

5555 016454 004757 050226 2$: JSR PC,CETSI -'SIM"! „.rc 

5556 016460 105001 BCC 5S :BR IF BIT IS A SPACE 

5557 016462 104006 ERROR 6 .-ERROR BIT WAS A NARK 

5558 016464 5t: 

5559 016464 005205 INC R5 ;NEXT BIT 

5560 016466 022705 000010 CNP I10.R5 ;DONE YET? 

5561 016472 001557 BNE IS ; BR IF NO 

5562 016474 104415 000014 DATACLK. 14 ;CLOCK TRANSNITTER 14 NORE TICKS 

5563 OlSoO m412 RONCLK .NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

5564 016502 021264 021264 ;P0RT4 LU-15 

5565 016504 052761 000040 000004 BIT #BIT5.4(R1) ;RTS SBOULO BE CLEAR NOW 

5566 016512 001401 BEQ 4S ;BR IF YES 

5567 016514 1 04054 ERROR 54 .-ERROR. RTS NOT CLEAR 

5568 016516 4$: 
5569 

3570 ^ ^^^^^ 

5571 ;t»*.*»*»*«***«***«*»**t*»»» TEST 21 

3572 ;*DDCMP TRANSNITTER TEST 

3573 .••SINGLE CLOCK THE CHARACTER 252 

3574 .••VERIFY EACH BIT POSITION AS IT 

3575 .••PASSES THE BIT WINDOW (SI BIT) 



SEO 0071 



I 



CZkcf 


MACY11 


30A(1052) 08-J 


CZKCf.PU 08 


-jUL-80 


08:24 


J J 1 o 








jjii 








T<t7il 
















jjOv 








3 JO 1 








jjOc 


U I O J ■ o 


000004 




J JO J 




012757 


000021 


J JO** 


V 1 O JCv 


012737 


016700 


J JO J 










w ■ O J J"* 


104410 




J jO I 


V 1 u J 


012711 


004000 


jjOO 


U 1 O JHC 


004737 


050412 


J lOT 




012761 


000001 




V 1 O J JH 


104412 




J J ' ' 


nift55A 


122111 






016560 


012705 


000252 




016564 


004757 


050412 




016570 


010561 


000004 


J Jr J 


016574 


104412 






01 65 ''6 


122110 




J Jr 1 


016600 


004737 


050260 






005005 




^S99 




010502 






w 1 WO 1 w 


104415 


000002 




016614 


104415 


000001 






106002 








105005 






016624 


004757 


050226 


3605 


016630 


105406 




3606 


016632 


104006 






016634 

w 1 OW J^ 


000404 




3608 


016636 

V ■ WW JW 


004757 


050226 


3609 


016642 


105001 






016644 

V 1 ww~~ 


104006 




361 1 


016646 








016646 


005205 






016650 

V 1 WW ^ V 


022705 


000010 


36K 


016654 

w ■ WW 


001557 




3615 


016656 

W » WW ^ w 


104415 


000014 


3616 


016662 


104412 




361 7 


016664 

w ' WWW^ 


021264 




3618 


016666 

V I WW WW 


052761 


000040 


3619 


016674 

W ■ WW ■ ~ 


001401 




3620 


016676 

V 1 WW ' w 


104054 




56?1 


016700 

V ■ W ■ WW 






3622 








3623 








3624 








3625 

JVC ^ 








3626 








5627 








3628 








3629 








3630 








5631 
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BASIC TRANSniTTER TESTS 



H 6 



SEQ 007? 



TST21 



1$: 



2S: 



5S: 



4t: 



:*0N AN ERROR, R5 CONTAINS BIT POSITION OF FAILURE 
; TEST 21 



SCOPE 

nov 
nov 

HSTCLR 

HOV 

JSR 

MOV 

ROnCLK 

122111 

MOV 

JSR 

MOV 

ROMCLK 

122110 

JSR 

CLR 

MOV 

OATACLK, 

DATACLK^ 

RORB 

BCC 

JSR 

BCS 

ERROR 

BR 

JSR 

BCC 

ERROR 



«21.$TSTNM 
#TST22.NEXT 



#BIT11 ,(R1) 

PC.OUTRDY 

#1.4(R1) 



#252, R5 :LOA0 

PCOUTRDY 

R5,4(R1) 



PC.OCOR 
R5 

R5,R2 



R2 
2S 

PC.GETSI 

5t 

6 

51 

PC.GETSI 

3$ 

6 



2 
1 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.•MASTER CLEAR KMC11 

;SET LINE UNIT LOOP 

.•WAIT FOR OUT-READY 

;SET BITO IN P0RT4 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;SET SOM! 
CHARACTER IN R5 FOR TYPEOUT 
.•WAIT FOR OUT-READY 
;LOAD P0RT4 WITH CHARACTER 
.•NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
:L0AD OUT DATA 
;WAIT FOR OCOR TO SET 
: CLEAR BIT COUNTER 
.•LOAD CHARACTER IN R2 
;2 TICKS TO SET UP TRANSMITTER 
.•SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
:SHIFT NEXT SOFTWARE BIT IN TO CARRY 
;BR IF CARRY CLEAR 
:GET THE WINDOW 
;BR IF BIT IS A MARK 
.ERROR BIT WAS A SPACE 
.•CONTINE WITH TEST 
;GET THE WINDOW 
:BR IF BIT IS A SPACE 
; ERROR BIT WAS A MARK 



INC R5 
CMP #10, R5 
BNE IS 
OATACLK. 14 
ROMCLK 



021264 
BIT 
BEQ 
ERROR 



#BIT5.4(R1) 
4$ 

54 



;NEXT BIT 
.•DONE YET? 
* BR IF NO 

•CLOCK TRANSMITTER 14 MORE 
.•NEXT WORD IS INSTRUCTION. 
;P0RT4 LU-15 

;RTS SROULD BE CLEAR NOW 
;BR IF YES 

;ERROR, RTS NOT CLEAR 



TICKS 
ROMCLK 



PC-5304 



..•••tt«t«t««tt*«t*tttt«tttt« TEST 22 

.••ODCMP TRANSMITTER TEST 

.••SINGLE CLOCK THE CHARACTER 577 

.••VERIFY EACH BIT POSITION AS IT 

.••PASSES THE BIT WINDOW (SI BIT) 

.••ON AN ERROR. R5 CONTAINS BIT POSITION OF FAILURE 



CZKCF HACYll 50A(1052) 08-JUL-80 
CZKCF.PII 08-JUL-80 08:24 



3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

364e> 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 
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BASIC TRANSMITTER TESTS 

; TEST 22 



I 6 



SEO 0073 



016700 
016702 
016710 

016716 
016720 
016724 
016730 
016736 
016740 
016742 
016746 
016752 
016756 
016760 
016762 
016766 
016770 
016772 
016776 
017002 
017004 
017006 
017012 
017014 
017016 
017020 
017024 
017C26 
017030 
017030 
017032 
017036 
017040 
017044 
017046 
017050 
017056 
017060 
017062 



000004 
012737 
012737 

104410 
012711 
004737 
012761 
104412 
122111 
012705 
004737 
010561 
104412 
122110 
004757 
005003 
010502 
104413 
104413 
IO0OO2 
103005 
004737 
103406 
104006 
000404 
004737 
103001 
104006 

005203 
022703 
001357 
104413 
104412 
021264 
C'52761 
001401 
104034 



000022 001202 
017062 001442 



004000 
030412 

000001 000004 



TST22: 



000377 
030412 
000004 



030260 



000002 
000001 



030226 
030226 

000010 
000014 

000040 000004 



IS: 



2S: 
3$: 



4$: 



SCOPE 

MOV «22,STSTNn 
NOV #rST23,NEXT 



MSTCLR 
MOV 
JSR 
MOV 

ROMCLK 

122111 

MOV 

JSR 

MOV 

ROMCLK 

122110 

JSR 

CLR 

MOV 

DATACLK 

DATACLK 

RORB 

BCC 

JSR 

BCS 

ERROR 

BR 

JSR 

BCC 

ERROR 



#BIT11 .(R1) 

PC.OUTRDY 

#1.4(R1) 



#377. R5 ;LOAD 

PC.OUTRDV 

R5,4(R1) 



PCOCOR 
R3 

R5.R2 



R2 
2S 

PC.GETSI 

3t 

6 

3S 

PC.GETSI 

3$ 

6 



2 
1 



INC R3 
CMP #10. R3 
BNE It 
OATACLK, 14 
ROMCLK 



021264 
BIT 
BEQ 
ERROR 



fBlT5,4(R1) 

4S 

34 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.•MASTER CLEAR KMC'1 

;SET LINE UNIT LOOP 

;WA1T FOR OUT-READY 

;SET BITO IN P0RT4 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;SET SOM! 
CHARACTER IN R5 FOR TYPEOUT 
;WAIT FOR OUT-READY 
;LOAD P0RT4 WITH CHARACTER 
;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 
;LOAD OUT DATA 
;UA1T FOR OCOR TO SET 
; CLEAR BIT COUNTER 
.•LOAD CHARACTER IN R2 
;2 TICKS TO SET UP ThA^SMITTER 
;SHIFT NEXT BIT IN THE wINDOU (SI BIT) 
.-SHIFT NEXT SOFTWARE BIT IN TO CARRY 
;BR IF CARRY CLEAR 
;GET THE WINDOW 
:BR If BIT IS A MARK 
;ERROR BIT WAS A SPACE 
.•CONTINE WITH TEST 
:6ET THE UINDOW 
:BR If BIT IS A SPACE 
.•ERROR BIT WAS A MARK 

;NEXT BIT 
;DONE YET? 
* BR I f NO 

•CLOCK TRANSMITTER 14 MORE TICKS 

;NEXT WORD IS INSTRUCTION. ROMCLK PC-5504 

;P0RT4 LU-13 

;RTS SROULD BE CLEAR NOW 
;BR If YES 

: ERROR, RTS NOT CLEAR 



;******t««**«t*t***«**««***t TEST 23 .t.t«»,.»«««»i 

;*DDCMP TRANSMITTER TEST 

.••SINGLE CLOCK A BINARY COUNT PATTERN 

.••VERIFY EACH BIT POSITION AS IT 

; •PASSES THE BIT WINDOW (SI BIT) 

.••ON AN ERROR. R3 CONTAINS BIT POSITION OF FAILURE 

.••AND R5 CONTAINS THE CHARACTER THAT FAILED 



TEST 23 
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J 6 



SEQ 007A 



5688 

3689 

3690 

3691 

3692 

3693 

369A 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

37U 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

372* 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3752 

3755 

5754 

5755 

5756 

3757 

5758 

5759 

5740 

5741 

5742 

5745 



017062 
017064 
017072 

017100 
017102 
017106 
017110 
017112 
017114 
017120 
017126 
017150 
017152 
017156 
017142 
017144 
017146 
017150 
017154 
017160 
017162 
017164 
017170 
017174 
017176 
017200 
017204 
017206 
017210 
017214 
017216 
017220 
017222 
017226 
017250 
017252 
017252 
017254 
017240 
017242 
017244 
017250 
017254 
017256 
017260 
017262 
017266 
017270 



000004 
012757 
012757 

104410 
012711 
005005 
005004 
005005 
004757 
012761 
104412 
122111 
004757 
010461 
104412 
122110 
005204 
004757 
010461 
104412 
122110 
00<.757 
104413 
005003 
010502 
104413 
106002 
105005 
004757 
103406 
104006 
000404 
004757 
105001 
104006 

005205 
022705 
001557 
005204 
004757 
010461 
104412 
122110 
005205 
022705 
001542 



000023 001202 
017270 001442 



004000 



050412 

000001 000004 



TST23- SCOPE 



050412 
000004 



050412 
000004 



050260 
000002 



000001 
050226 

030226 
000010 



050412 
000004 



000400 



4t: 
It: 



2$: 
5$: 



5t: 



MOV 


#23,$TSTNH 


; LOAD THE NO. Of THIS TEST 


nov 


#TST24,NEXT 


; POINT TO THE START Of NEXT TEST, 




;R1 CONTAINS BASE KMC11 ADDRESS 


MSTCLR 




.-MASTER CLEAR KMCll 


nov 


#B1T11,(R1) 


;SET LINE UNIT LOOP 


CLR 


R5 


;R5 CONTAINS BIT COUNT 


CLR 


R4 


;R4 CONTAINS CHAR TO BE LOADED I.. SILO 


CLR 


R5 


;R5 CONTAINS CHARACTER CURRENTLY BEING SHIFTED OUT 


JSR 


PC.OUTROt 


;UAIT FOR OUT-READY 


MOV 


«1,4(R1) 


;SET BITO IN P0RT4 


ROMCLK 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 


122111 




;SET SOM! 


JSR 


PC.OUTRDY 


.'WAIT FOR OUT-READY 


MOV 


R4.4(R1) 


;LOAD P0RT4 WITH CHARACTER 


ROMCLK 


.-NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 


122110 




;LOAD OUT DATA 


INC 


R4 


.-INCREMENT TO NEXT CHARACTER 


JSR 


PC.OUTROt 


.-WAIT FOR OUT-READY 


MOV 


R4,4(R1) 


;LOAD P0RT4 WITH CHARACTER 


ROMCLK 


;NEXT WORD IS INSTRUlTION, ROMCLK PC=5304 


122110 




.-LOAD OUT DATA 


JSR 


PCOCOR 


.-WAIT FOR OCOR TO SET 


DATACLK 


2 


.-2 TICKS TO SET UP TRANSMITTER 


CLR 


R5 


.-CLEAR BIT COUNTER 


MOV 


R5,R2 


;LOAD CHARACTER IN R2 


DATACLK 


1 


.-SHIFT NEXT BIT IN THE WINDOW (SI BIT) 


RORB 


R2 


: SHI FT NEXT SOFTWARE BIT IN TO CARRY 




2% 


-BR IF CARRY CLEAR 


JSR 


PCGETSl 


;GET THE WINDOW 


BCS 


5t 


;BR IF BIT IS A MARK 


ERROR 


6 


.-ERROR BIT WAS A SPACE 


BR 


3S 


;CONTINE WITH TEST 


JSR 


PC.GETSI 


.-GET THE WINDOW 


BCC 


5$ 


;BR IF BIT IS A SPACE 


ERROR 


6 


; ERROR BIT WAS A HARK 


INC 


R5 


.•NEXT BIT 


CMP 


#^0.R5 


;OONE YET? 


BNE 


1» 


;BR IF NO 


INC 




;NtXT CMAfiALicR 


JSR 


PC.OUTROt 


:WAIT FOR OUT-READY 


NOV 


R4.4(R1} 


:LOAD P0RT4 WITH CHARACTER 


ROnCLK 


.-NEXT UOftD IS INSTRUCTION. ROMCLK PC=5504 


122110 




;LOAD OUT DATA 


INC 


R5 


.-NEXT CHARACTER 


CUP 


«400.R5 


;0ONE YET? 


BNE 


4$ 


:BR IF NO 



;t**tt*«t**«t*«««ttt*«««««t* TEST 24 
.-•DPCMP STRIP SYNC TEST 
.-•SET LU LOOP. SINGLE STEP 5 SYNCS. 
.••VERIFY THAT IN ACTIVE DOES NOT SET 



CZKCf 




30AU052] 


08-Jl 


CZKCf.PII 08 


-JUL -80 08:24 










3745 








3746 








3747 








3748 








3749 


017270 


000004 




3750 


017272 


012737 


000024 


3751 


017300 


012737 


017356 


3752 








3753 


01 7306 


104410 




3754 


017310 


012711 


A /\ « AAA 

004000 


37S5 


017314 


012702 


/\ A A A 4 ^ 

000012 


3756 


01 7320 


004737 


030276 


3757 


01 7324 


000005 




3758 


017326 


104413 


A A A A P f 

000054 


3759 


017332 


104412 




3760 


017354 


021244 




3761 


017336 


016104 


A A A A A / 

000004 


3762 


017342 


A i t ^ A i 

042704 


AAA ^^^^ 

000277 


3763 


01 7346 


AAIT A Af 

005005 




3764 


01 7350 


120504 




3765 


017352 


AA4 i A4 

001401 




3766 


01 7354 


1 04040 




3767 


017356 






3768 








3769 








3770 








3771 








3772 








3773 








3774 








3775 








3776 








3777 








3778 








3779 


017356 


AA AAA i 

000004 




3780 


017360 


012737 


AAA A ^ C 

000025 


3781 


017366 


A4 

012737 


A4 7/ id. 

017446 


3782 








3783 


017374 


4 A4 4 4 A 

104410 




3784 


01 7376 


012711 


AA/ AAA 

004000 


3785 


A 4 ^ J A ^ 

017402 


A4 ^YA^ 

012702 


AAAA4 ^ 

000012 


3786 


017406 


AA^ 7 V 7 

004737 


030276 


3787 


017412 


AA AAA C 

000005 




3788 


01 7414 


4 Al / 4 7 

1 044 1 3 


AAAA^ / 

000064 


3789 


A4 "VJ 

01 7420 


4 A4 i 4 ^ 

104412 




3790 


017422 


021244 




3791 


017424 


A 4 ^ 4 A 1 

016104 


A AA AA / 

000004 


3792 


/\4 T/ TA 

017430 


042704 


AAA 

0002^ 7 


3793 


A4 ^ 1 ^ M 

017434 


A4 ITAC 

012705 


AAA i An 

000100 


3f 94 


Ol f 440 


« 9 AC A/. 




3795 


01 7442 


001401 




3796 


017444 


104040 




3797 


017446 






3798 








3799 
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BASIC RECEIVER TESTS 



K 6 



SEQ 0075 



001202 
001442 



TST24: 



It: 



TST25: 



1$: 



TEST 24 



SCOPE 

nOV ff24,STSTNM 
MOV fTST25,NEXT 

HSTCLS 

MOV (rBIT11,(R1) 
NOV #12,R2 
JSR Pf,SVNC 
5 

DATACLK, 54 
ROMCLK 



021244 

nov 

BIC 

CLR 

CHPB 

BEQ 

ERROR 



4{R1),R4 
#277. R4 
R5 

R5.R4 

U 

40 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

;R1 CONTAINS BASE KFtCII ADDRESS 

.-MASTER CLEAR KMCII 

;SET LU LOOP 

.•SAVE LU REG FOR TVPEOUT 

; SINGLE CLOCK 5 SYNC CHARACTERS 



.NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;P0RT4 LU12 

;PUT "TOUND" IN R4 

; CLEAR UNWANTED BITS 

;PUT "EXPECTED" IN R5 

;IS ACTIVE CLEAR? 

:BR IF YES 

:ERROR ACTIVE IS NOT CLEAR 



;*******t««t****t«*****t**** TEST 25 
;*DDCBP IN ACTIVE TEST 

:*SET LU LOOP, SINGLE STEP 5 SYNCS AND A NON-SYNC (301) 
;*VER1FY THAT IN ACTIVE IS SET 



TEST 25 



SCOPE 

NOV 

NOV 



#25.fTSTNM 
«TST26.NEXT 



TEST. 



HSTCLR 

NOV #BIT11,{R1) 
MOV #12.R2 
JSR PC, SYNC 
5 

DATACLK, 64 
ROMCLK 



021244 
NOV 
BIC 
NOV 
CNP6 
6E0 
ERROR 



4(R1),R4 
#277, R4 
#BIT6.R5 
R5,R4 

n 

40 



: LOAD THE NO. OF THIS TEST 
: POINT TO THE START OF NEXT 

:R1 CONTAINS BASE KHC11 ADDRESS 

.NASTER CLEAR KNC11 

:SET LU LOOP 

.-SAVE LU REG FOR TYPEOUT 
.•SINGLE CLOCK 5 SYNC CHARACTERS 



;NEX1 WORD IS INSTRUCTION. RONCL^ PC=5304 

;P0RT4 LU12 

;PUT 'TOUND" IN R4 

.'CLEAR UNWANTED BITS 

.PUT "EXPECTED" IN R5 
;1S ACTIVE SET? 
;BR IF YES 

.•ERROR ACTIVE IS NOT SET 
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L 6 



SEQ 0076 



3800 

3801 

3802 

3803 

380A 

3805 

3806 

3807 

3808 

3809 

3810 

5811 

5812 

5813 

38U 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3«42 

3843 

3844 

3845 

3846 

3«47 

3«48 

3849 

3850 

3851 

3852 

3853 

3854 

3855 



017446 
017450 
017456 

017464 
017<,66 
017472 
017476 
017502 
017504 
017510 
017512 
017514 
017520 
017524 
017526 
017530 
017532 
017534 



017534 
017536 
01 7544 

017552 
017554 
017560 
017564 
017570 
017572 
017576 
017600 
017602 
017606 
017612 
017616 
017620 



000004 
012737 
012737 

104410 
012711 
012702 
004737 
000001 
104413 
104412 
021244 
016104 
042704 
005005 
120504 
001401 
104040 



000004 
012737 
012737 

104410 
012711 
012702 
004737 
000002 
104413 
104412 
021244 
016104 
042704 
012705 
120504 
001401 



000026 
017534 



004000 
000012 
030276 

000024 



000004 
000277 



000027 
017624 



004000 
000012 
030276 

000034 



000004 
000277 
000100 



001202 
001442 



TST26; 



1$: 



001202 
001442 



TST27: 



•••• TEST 26 ' 

•DDCHP IN ACTIVE TEST 

•SET LU LOOP. SINGLE STEP 1 SYNC AND A NON-SYNC (301) 
•VERIFY THAT IN ACTIVE DOES NOT SET 



TEST 26 



SCOPE 

nov 
nov 



«26,STSTNM 
#TST27.NEXT 



MSTCLR 

MOV #BIT11,(R1) 
HOV #12. R2 
JSR PC, SYNC 
1 

DATACLK. 24 
ROMCLK 



021244 
MOV 
BIC 
CLR 
CNPB 
BEO 
ERROR 



4(R1 ).R4 
#277. R4 

R5 

R5.R4 
IS 

40 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

;R1 CONTAINS BASE KMCIT ADDRESS 

.-MASTER CLEAR KMCH 

.-SET LU LOOP 

;SAVE LU REG FOR TYPEOUT 

; SINGLE CLOCK 1 SYNC CHARACTERS 



;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;P0RT4 LU12 

;PUT 'TOUND" IN R4 

;CLEAR UNWANTED BITS 

;PUT 'tXPECTED" IN R5 

;IS ACTIVE CLEAR? 

;BR IF YES 

.-ERROR ACTIVE IS NOT CLEAR 



TEST 27 1 

;^ODCHP IN ACTIVE TEST 

;^SET LU LOOP. SINGLE STEP 2 SYNCS AND A NON-SYNC (301) 
.-•VERIFY THAT IN ACTIVE IS SET 



TEST 27 



SCOPE 
HOV 

nov 



t27,tTSTNN 
fTST30.NEXT 



HSTCLR 

NOV #BIT11.(R1> 
mv #12, R2 
JSR PC. SYNC 

2 

DATACLK. 34 
ROMCLK 



021244 
NOV 
BIC 
MOV 
CMP8 
6EQ 



4(R1).R4 
#277, R4 
#BIT6.R5 
R5.R4 
U 



; LOAD THE NO. OF THIS TEST 

: POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KNC11 ADDRESS 

:NASTER CLEAR KNC11 

.-SET LU LOOP 

;SAVt LU REG FOR TYPEOUT 
.-SINGLE CLOCK 2 SYNC CHARACTERS 



.NEXT yORD IS INSTRUCTION. RONCLK PC=5304 

;P0RT4 LU12 

;PUT 'TOUND" IN R4 

.-CLEAR UNWANTED BITS 

.-PUT "EXPECTED" IN R5 
;IS ACTIVE SET? 
;6R IF YES 
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H 6 



S£0 0077 



3856 

?857 

5858 

3859 

3860 

3861 

3862 

3863 

386^ 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

5907 

3908 

3909 

3910 

3911 



01^622 
017624 



017624 
017626 
017634 

017642 
017644 
017650 
01 7654 
017660 
017662 
017666 
017672 
01 7674 
017676 
017702 
017706 
017712 
017714 
017716 
017720 
017720 
017726 
017730 
017732 
017734 
017736 
017742 
017746 
017750 
017752 
017754 
017756 
017756 
017762 
017766 
017770 
017772 
017774 
017776 



104040 



000004 
012737 
012737 

104410 
012702 
012711 
004737 
000301 
10*.413 
104414 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
104040 

012761 
104412 
122112 
104412 
021244 
016104 
042704 
005005 
120504 
001401 
104040 

016104 
042704 
005005 
120504 
001401 
104040 



It: 



ERROR 40 



;ERR0R ACTIVE IS NOT SET 



000030 001202 
017776 001442 



000012 
004000 
030444 

000053 
000002 



1ST50: 



000004 
000357 
000020 



000200 000004 



It. 



000004 
000277 



000004 
000357 



2t: 



3t: 



;*****«****t**t**tt*«*«***t* TEST 30 ••*»»t*t*« 

;»IN CLEAR TEST 

.••SYNC UP RECEIVER AND TRANSMIT A CHARACTER 
.-•WAIT FOR IN RDY, THEN SET IN CLEAR 
:«VER1FY THAT IN ACTIVE AND IN RDY ARE CLEARED 







; TEST 


30 


• 

SCOPE 




nov 


«30.tTSTNM 


NOV 


»TST31,NEXT 


HSTCLR 




nov 


#12, R2 


nov 


#bitii,:ri) 


JSR 


PC, CHAR 


301 


DATACLK, 53 


TinER. 


2 


ROnCLK 




021244 




nov 


4(R1).R4 


BIC 


#357. R4 


nov 


#8114. R5 


cnPB 


R5,R4 


8EQ 


It 


EP90R 


40 


NOV 


#6117. 4(Rn 


ROnCLK 




122112 




RONCLK 




021244 




NOV 


4(R1).R4 


BIC 


#277. R4 


CLR 


R5 


CNPB 


R5.R4 


BEO 


2% 


ERROR 


40 


NOV 


4(R1).R4 


BIC 


#357. R4 


CLR 


R5 


CNPB 


R5.R4 


BEO 


3t 


ERROR 


40 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.-NASTER CLEAR KNCll 

.-SAVE REG ADDRESS IN R2 FOR TVPEOUT 

;SET LINE UNIT LOOP 

.-LOAD SILO WITH 3 SYNCS 

;AND A NON-SYNC (301) 

: SINGLE CLOCK THE DATA 

;UAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION, ROnCLK PC-5304 

;P0RT4 LU 12 

;PUT 'TOUNO" IN R4 

: CLEAR UNWANTED BITS 

;PUT "EXPECTED" IN R5 
;IS INRDY SET? 

.ERROR. INRDY IS NOT SET 

:LOAD P0RT4 

.'NEXT UORO IS INSTRUCTION, RONCLK PC=5304 
;SET IN CLEAR 

:NEXT WORD IS INSTRUCTION. RONCLK PC 5304 

;P0RT4 LU 12 

.PUT "TOUND" IN R4 

.CLEAR UNWANTED BITS 

.PUT "EXPECTED" IN R5 

;IS IN ACTIVE CLEAR? 

.-ERROR, IN ACTIVE IS NOT CLEAR 

;PUT 'tOUNO" IN R4 
.CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
;IS INRDY CLEARED? 

.•ERROR, INRDY IS NOT CLEARED 



TEST 31 



CZKCf 


HAcyii 


50A(10S21 


08-JL 


czKCF.pn 08 


-JUL -80 08:24 


jr 1 C 








































^91 7 
















1919 








J T b V 


017776 


000004 

WWW 




5921 


020000 

Wb wvww 


012757 


000051 


3922 


020006 

Wfc wwww 


012737 


020112 


3923 








3924 


020014 

W w WW ' ~ 


104410 




3925 


020016 

w t vv < w 


012702 


000012 


3926 


020022 

Vfc WWfc 


012711 


004000 

w w ^ www 


3927 


020026 

Wfc V Wfc w 


004757 


050444 


3928 


020052 


000000 

WW www 




3929 


020034 


104415 


000055 


3930 


020040 


104414 


000002 


3931 


020044 


104412 




5932 


020046 


021244 




3933 


020050 


016104 


000004 


3934 


020054 


042704 


000557 


3935 


020060 

w»* w www 


012705 


000020 


3936 


020064 

Wfc WWW^ 


120504 




3937 


020066 


001401 




3938 


020070 


104040 




3939 


020072 






39A0 


020072 


104412 




3941 


020074 


021204 




3942 


020076 


016104 


000004 


3943 


020102 


005005 




3944 


020104 


120504 




3945 


020106 


001401 




3946 


020110 


104010 




3947 


020112 






3948 








3949 








5950 








3951 








5952 








3953 








5954 








5955 








5956 








5957 








5958 








5959 


020112 


000004 




5960 


020114 


012757 


000052 


5961 


020122 


012757 


020250 


5962 








5965 


020130 


104410 




3964 


020152 


012702 


000012 


3965 


020156 


012711 


004000 


5966 


020142 


004757 


050444 


5967 


020146 


000125 
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BASIC RECEIVER TESTS 



N 6 



SEO 0078 



001202 
001442 



TST51 



1$: 



2S: 



TST32: 



.••DDCMP BASIC RECEICER TEST 

;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0 

:*VERIfY THAT IN RDV IS SET, AND THAT THE CHARACTER WAS RECEIVED 



TEST 31 



SCOPE 

nOV «51,$TSTNn 

HOV #TST52,NEXT 

HSTCLR 

HOV #12.R2 

NOV #BIT11.(R1) 

JSR PC, CHAR 
0 

DATACLH. 55 

TIMER. 2 
ftOMCLK 
021244 

MOV 4(R1).R4 

BIC #557. R4 

MOV «BIT4.R5 

CMPB R5,R4 

BEQ IS 

ERROR 40 

ROMCLK 
021204 

NOV 4(R1).R4 

CLR R5 

CNP6 R5.R4 

BEQ 2$ 

ERROR 10 



TEST, 



; LOAD THE NO. OF THIS TEST 
; POINT TO THE START OF NEXT 

:R1 CONTAINS BASE KNC11 ADDRESS 

.-MASTER CLEAR KMC11 

.•SAVE REG ADDRESS IN R2 FOR TVPEOUT 

;SET LINE UNIT LOOP 

;LOAD SILO WITH 5 SYNCS 

;AND THE CHARACTER 0 

.-SINGLE CLOCK THE DATA 

;WAIT FOR INRDY 

:NEXT WORD IS INSTRUCTION, ROHCLK PC=5504 

;P0RT4 LU 12 

.-PUT 'TOUND" IN R4 

: CLEAR UNWANTED BITS 

;PUT 'tXPECTED" IN R5 
;IS INRDY SET? 

;ERROR. INRDY IS NOT SET 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:P0RT4 IN DATA 
;PUT 'TOIWD" IN R4 
.-PUT "EXPECTED" IN R5 
;WAS A 0 RECEIVED? 

:ERROR. RECEIVED DATA IS WRONG 



;«*****«t«*«**««*«*t«*t«»*t« TEST 52 •••••••••••••• • • 

;*DDCW» BASIC RECEICER TEST 

;»SYNC UP RECEIVER m SlNGLc CLOCK THE CHARACTER 125 

;*VERIFY THAT IN RDY IS SET. AND THAT THE CHARACTER WAS RECEIVED 



TEST 52 



SCOPE 

NOV 

NOV 

NSTCLR 

NOV 

NOV 

JSR 

125 



f32,STSTNM 
#TST53.I(EXT 



#12, R2 
#BIT11.(R1) 
PC, CHAR 



; LOAD THE NO. OF THIi TEST 
; POINT TO THE START OF NEXT 

;R1 CONTAINS BASE KNC11 ADDRESS 

:MASTER CLEAR KNC11 

;SAVE REG ADDRESS IN R2 FOR TYPEOUT 

;SET LINE UNIT LOOP 

.-LOAD SILO WITH 5 SYNCS 

;AND THE CHARACTER 12S 



TEST 
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BASIC RECEIVER TESTS 



SEO 0079 



5968 

3969 

5970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 



020150 
020154 
020160 
020162 
020164 
020170 
020174 
020200 
020202 
020204 
020206 
020206 
020210 
020212 
020216 
020222 
020224 
020226 
020230 



020230 
020232 
020240 

020246 
020250 
020254 
020260 
020264 
020266 
020272 
020276 
020300 
020302 
020306 
020312 
020316 
020320 
020322 
020324 
020324 
020326 
020330 
020334 
020340 
020342 



104413 
10441' 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
104040 

104412 
021204 
016104 
012705 
120504 
001401 
104010 



000055 
000002 



000004 
000357 
000020 



IS: 



000004 
000125 



2%: 



000004 TST33: 
012737 000033 001202 
012737 020346 001442 



104410 
012702 
012711 
004737 
000252 
104413 
104414 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
104040 

104412 
021204 
016104 
012705 
120504 
001401 



000012 
004000 
030444 

000053 
000002 



000004 
000357 
000020 



IS: 



000004 
000252 



DATACLK. 


TIMER, 


2 


ROMCLK 




021244 




nov 


4(R1),R4 


BIC 


#357, R4 


nov 


«BIT4,R5 


cnPB 


R5,R4 


BEO 


IS 


ERROR 


40 


ROMCLK 




021204 




nov 


4(R1),R4 


HOV 


#125,R5 


CMPB 


R5.R4 


BEO 


2S 


ERROR 


10 



53 



SINGLE CLOCK THE DATA 
WAIT FOR INRDY 

NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

P0RT4 LU 12 

PUT 'TOUND" IN R4 

CLEAR UNWANTED BITS 

.'PUT "EXPECTED" IN R5 
;IS INRDY SET? 

.•ERROR, INRDY IS NOT SET 

NEXT WORD IS INSTRUCTION, ROMClK PC=5304 
P0RT4 IN DATA 
PUT 'TOUND" IN R4 
PUT "EXPECTED" IN R5 
WAS A 125 RECEIVED? 

.•ERROR, RECEIVED DATA IS WRONG 



•••*««*««*t*««tt*t*«««***** TEST 33 
•OOCMP BASK RECEICER TEST 

•SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252 

• VERHY THAT IN RDV IS SET, AND THAT THE CHARACTER WAS RECEIVED 



TEST 33 



SCOPE 

HOV #33,STSTN« 

NOV fTST34.NEXT 

USTCLR 

NOV #12, R2 

HOV #81T11.(R1) 

JSR PC. CHAR 

252 

OATACLK. 53 

TIHER. 2 
ROMCLK 
021244 

MOV 4(R1),R4 

BIC #357, R4 

MOV #BIT4,R5 

CMPB «5,R4 

BEQ IS 

ERROR 40 

ROMCLK 
021204 

MOV 4(R1),R4 

MOV #252. R5 

CMPB R5.R4 

BEQ 2S 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

Rl CONTAINS BASE KMCll ADDRESS 

MASTER CLEAR KMCll 

SAVE REG ADDRESS IN R2 FOR TYPEOUT 

SET LINE UNIT LOOP 

LOAD SILO WITH 3 SYNCS 

AND THE CHARACTER 252 

SINGLE CLOCK THE DATA 

WAIT FOR INRDY 

NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

P0RT4 LU 12 

PUT 'TOUND" IN R4 

CLEAR UNWANTED BITS 

;PUT "EXPECTED" IN R5 
;IS INRDY SET? 

.•ERROR, INRDY IS NOT SET 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
P0RT4^IN DATA 
PUT 'TOUND" IN R4 
PUT "EXPECTtO" IN R5 
WAS A 252 RECEIVED? 
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SEQ 0080 



4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 



020344 
020346 



020346 
020350 
020356 

020364 
020366 
020372 
020376 
020402 
020404 
020410 
020414 
020416 
020420 
020424 
020430 
020434 
020436 
020440 
020442 
020442 
020444 
020446 
020452 
020456 
020460 
020462 
020464 



020464 
020466 
020474 



104010 



000004 
012737 
012737 

104410 
012702 
012711 
004737 
000377 
104413 
10<.414 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
104040 

104412 
021204 
016104 
012705 
120504 
001401 
104010 



000004 
012737 
012737 



2t: 



000034 001202 
020464 001442 



000012 
004000 
030444 



TST34! 



000053 
000002 



000004 
000357 
000020 



1$; 



000004 
000577 



2%: 



000035 001202 
020614 001442 



ERROR 10 



;ERROR. RECEIVED DATA IS WRONG 



*«*****«*«««««««tt***«***** TEST 34 
•DDCNP BASIC RECEICER TEST 

•SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377 

•VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 



TEST 34 



SCOPE 

nov 
nov 



f34,$TSTNn 
#TST35,NEXT 



nSTCLR 

NOV «12,R2 

MOV #BIT11,{R1) 

JSR PC, CHAR 
377 

DATACLK. 53 

TIMER. 2 

RonciK 

021244 

nov 4(R1).R4 

BIC #357, R4 

nov f6IT4.R5 

CnPB R5,R4 

BEQ U 

ERROR 40 



RO«CLK 
021204 

nov 
nov 
cnPB 

BEQ 
ERROR 



4(R1).R4 
#377. R5 
R5.R4 
2% 
10 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

R1 CONTAINS BASE KnCII ADDRESS 

MASTER CLEAR KMCII 

SAVE REG ADDRESS IN R2 FOR TYPEOUT 

SET LINE UNIT LOOP 

LOAD SILO WITH 3 SYNCS 

AND THE CHARACTER 37/ 

SINGLE CLOCK THE DATA 

WAIT FOR INRDY 

NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 

P0RT4 LU 12 

PUT 'TOUND" IN R4 

CLEAR UNWANTED BITS 

.PUT "EXPECTED" IN R5 
IS INRDY SET? 

ERROR, INRDY IS NOT SET 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
P0RT4 IN DATA 
PUT 'TOUND" IN R4 
PUT 'tXPECTED * IN R5 
WAS A 377 RECEIVED? 

ERROR. RECEIVED DATA IS WRONG 



TEST 35 ••••t.t»»»« 

.••DDCWP DATA TEST 

.'•THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
.••CHECKING EACH CHARACTER AS IT IS RECEIVED 



TEST 35 



T§T35: SCOPE 

nov #35,$TSTNn 

nov #TST36.NEXT 



: LOAD THE NO. OF THIS TEST 
: POINT TO THE START OF NEXT TEST, 
;R1 CONTAINS BASE KRCII ADDRESS 



CZKCf 


HACY11 


50A(1052) 08-J( 


czKCf.pn 08 


-JUL-80 08:24 


y ABA 


[JcUjQc 


1 Ay / 1 A 
1 044 1 0 






A^ACAy 

0£U5U4 


A .CAfT 


A7 1 A^") 
031 00£ 






AAC AT7 


ATI AAy 

031004 




AOAC1 y 


AAC AA^ 




/ AAy 


A'^ACI 

Oc05 lO 


Al ^7Af 
01 Cf 03 


AAAA77 

OOOUr 3 


y AfiC 




Al ^71 1 


AAy AAA 

004000 


/ ABik 
<iUOO 


UcU>cO 


AAA 717 

004 fir 


0306£c 


HUOf 




1 AAA 1 T 

1 Ohh 1 3 


AAAAA T 
00004 3 


hUoo 


A^nCTA 


1 HAAI T 
1 0*»H 1 3 


AArt7Tn 
000 r 30 


AAAO 
hUOt 


n5n«;A5 


UU*» f 3 f 


OT1 OAA 
U3 1 UOO 


hUtU 


A5ACA/> 
UcU5«»0 


1 HA A 1 5 




hUt I 




rt51 5nA 




H\jyc 


\Jc\JjJC 


rtl Al OA 
U 1 O 1 Uh 


AA(\AAA 

UUUUUh 


LDOX 

•lUT J 


UcU J JO 


fti n5rt^ 

U 1 vcvj 




hUth 


UcU30U 


1 5nsnA 

1 cU5Uh 






vcvjOc 


nm Arti 

UU 1 hU 1 




hUtO 


UcU50*t 


1 UhU 1 u 




AOO? 




UU?cUc 




hUtO 




Uccr Uc 


OOOAOO 
UUUhUU 




n9nc7A 

UcUif H 


nm An7 

UU 1 hUi 




L^(\^\ 




UU7 jU J 






A^oAnn 

Uc vOUU 


AAi rcn 

UU 1 jOU 




H 1 Uc 


AJAyLAJ 


ftnA7X7 
UUH f J f 


OXOA55 
U jUOcc 


1 U J 


UcUOUO 


ni 3707 
U 1 c ' U J 


UUUUf J 




UcLO 1 C 


UUU » 3 1 




















Ai 








A10A 








>• 1 \jy 








L^^t\ 

H 1 1 V 








Hill 








•tile 








A1 1 T 
H 1 1 J 








A1 1 A 
1 1 








Alls 

1 1 J 








H 1 1 O 








A1 1 7 

1 1 f 








Al 1ft 








A1 10 

1 1 T 


UcwO 1 


000004 

UUUUvH 




Al pn 

H 1 tU 


WCUO 1 o 


01 57X7 

U 1 C> Jf 


0000 XA 


Al?1 
H 1 e 1 


n90A94 


ni 57X7 

U 1 C r Jf 


0507S4 
UCUr 31 


LI ?? 








Al ?T 


Ucl/O JC 


104410 

1 \JHH 1 U 




Al ?A 


n70AX4 


00S0X7 
UU5U J» 


0T10A5 
U J 1 UOc 


Al ?S 


UcUOHU 


00^0X7 
UU jU J> 


ATI 0A4 
U J 1 UOH 


Al ?A 


AJOAAA 


OOS005 
wU jUUc 




Al ?7 

H I CI 


OPOAAA 
UcUOtO 


01 570X 
U 1 CfVj 


00007 X 
UUUU' J 


A 1 5R 
H 1 CO 




00^01 1 
UU5U 1 1 




Al 50 
H 1 C T 




01 57A1 
U 1 c r 0 1 


0000 AO 
UUUUhU 






104412 




4131 


020664 


122112 




4132 


020666 


004737 


030622 


<.133 


020672 


104413 


000043 


4134 


020676 


104413 


000730 


4135 


020702 


004737 


031066 
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BASIC RECEIVER TESTS 



D 7 



SEO 0081 



1$: 
4S: 



2$: 



3$: 



HSTCLR 




MASTER CLEAR KMC11 


CLR 


SCHAR 


START BINARY COUNT AT ZERO 


CLR 


STUFL6 


CLEAR BITSTUFF FLAG 
R2 IS "EXPECTED" DATA 


CLR 


R2 


HOV 


#73, R3 


R3 IS CHARACTER COUNT 


HOV 


#BIT11,(R1) 


SET LINE UNIT LOOP 


JSR 


PC.SILOLD 


LOAD SILO WITH COUNT PATTERN 


OATACLK, 


43 


SYNC RECEIVER AND GET IT ACTIVE 


DATACLK. 


730 


CLOCK IN 73 CHARACTERS 


JSR 


PC.INRDY 


WAIT FOR INRDY 


ROMCLK 




NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


021204 




P0RT4 IN DATA 


MOV 


4(R1),R4 


PUT "rOUND" IN R4 
•PUT "EXPECTED" IN R5 


MOV 


R2,R5 


CMPB 


R5,R4 


•IS DATA CORRECT? 


BEO 


2$ 


;BR IF YES 


ERROR 


10 


■DATA ERROR 


INC 


R2 


;NEXT CHARACTER 


CMP 


«400,R2 


;ALL DONE? 


BEQ 


3$ 


;BR IF YES 


DEC 


R3 


;DECREHENT CHARACTER COUNT 


BNE 


4S 


;BR IF SILO NOT EMPTY 


JSR 


PC.SILOLD 
#73, R3 


ILOAD SILO WITH MORE OF COUNT PATTERN 


MOV 


;RELOAD CHARACTER COUNT 


BR 


1$ 


; CONTINUE 



; •.•••••t»»t*t**.»..* TEST 36 

.••DDCHP DATA TEST 

.'•THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
;*CHECKING EACH CHARACTER AS IT IS RECEIVED 
.••THIS TEST IS EXACTLY THE SAME AS THE LAST TEST. 
.••EXCEPT LINE UNIT lOOP IS SET IN LU REGISTER 12 



TEST 36 



TST36: 



SCOPE 

HOV 

MOV 



#36,STSTNM 
#TST57,NEXT 



1$: 
4S: 



MSTCLR 
CLR 
CLR 
CLR 
MOV 
CLR 
MOV 
ROMCLK 
122112 

JSR PC.SILOLD 
DATACLK. 43 
DATACLK. 730 
JSR PC.iNRDV 



SCHAR 

STUFLG 

R2 

#73. R3 

(R1) 

#BIT5.4(R1) 



: LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

R1 CONTAINS BASE KMC 11 ADDRESS 

MASTER CLEAR KNCII 

START BINARY COUNT AT ZERO 

CLEAR BITSTUFF FLAG 

R2 IS "EXPECTED" DATA 

R3 IS CHARACTER COUNT 

CLEAR LU LOOP IN MAINT REG 

LOAD PORT 4 

NEXT WORD IS INSTRUCTION, ROMCLK PC=b304 

SET LU LOOP IN LU REG 12 

LOAD SILO WITH COUNT PATTERN 

SYNC RECEIVER AND GET IT ACTIVE 

CLOCK IN 73 CHARACTERS 

UAIT FOR INRDY 
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BASIC RECEIVER TESTS 



E 7 



SEQ 0082 



4156 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

<.174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 



020706 
020710 
020712 
020716 
020720 
020722 
020724 
020726 
020730 
020734 
020736 
020740 
020742 
020746 
020752 
020754 



020754 
020756 
020764 

020772 
020774 
021000 
021004 
021006 
021012 
021016 
021020 
021022 
021026 
021032 
021034 
021036 
021040 
021044 
021046 
021050 
021054 
021060 
021062 
021064 
021066 
021072 



104412 
021204 
016104 
010205 
120504 
001401 
104010 
005202 
022702 
001407 
005303 
001 360 
004737 
012703 
000751 



000004 
012737 
012737 

104410 

012711 

004737 

000301 

104413 

004737 

104412 

021204 

016104 

012705 

120504 

001401 

104010 

004737 

104412 

021204 

016104 

012705 

120504 

001401 

104010 

004737 

104412 



000004 



000400 



030622 
000073 



000037 
021114 



004000 
030444 

000073 
031066 



000004 
000301 



031066 



000004 
000377 



031066 



2$: 



3$: 



001202 
001442 



TST37: 



IS: 



ROnCLK 




;NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 


021204 




;P0RT4 IN DATA 


MOV 


4(R1),R4 


;PUT "TOUND" IN R4 
;PUT "EXPECTED" IN R5 


HOV 


R2,R5 


rnPB 


R5.R4 


;IS DATA CORRECT? 


BEQ 


2S 


:BR IF YES 


ERROR 


10 


;DATA ERROR 


INC 


R2 


.■NEXT CHARACTER 


CMP 


#400, R2 


;ALL DONE? 


BEQ 


3S 


;BR IF YES 


DEC 


R5 


.■DECREMENT CHARACTER COUNT 


BNE 


4S 


;BR IF SILO NOT EMPTY 


JSR 


PC.SILOLO 


.-LOAD SILO yiTH MORE OF COUNT PATTERN 


MOV 


#73. R3 


: RELOAD CHARACTER COUNT 


BR 


IS 


; CONTINUE 



;«*t*«t**ttt*t«*«t«*tt«*t«** TEST 37 ••**«••*♦•••••••« 

: •TRANSMITTER NARK TEST 

.■•SINGLE CLOCK 3 SYNCS AND A 301 AND 20 EXTRA 
;«CL0CK TICKS. VERIFY THAT A 301 , A 377 AND A 377 
;»UERE RECEIVED INDICATING THAT THE TRANSMITTER yENT 
.••TO A HARK STATE FOR 16 BITS yHEN OUT SILO yAS EMPTY 



; TEST 37 



SCOPE 

MOV #37.$TSTNH 
MOV fTST40.NEXT 



2S: 



MSTCLR 
MOV 

JSR 
301 

DATACLK, 
JSR 

ROMCLK 

021204 

MOV 

MOV 

CMPB 

BEO 

ERROR 

JSR 

ROMCLK 

021204 

MOV 

MOV 

CMPB 

BEQ 

ERROR 

JSR 

ROMCLK 



«BIT11.(R1) 
PC.CHAR 



PC.INROY 



4(R1).R4 
#301 .R5 
R5,R4 
IS 

10 

PC.INROY 



4(R1).R4 
1377, R5 
R5.R4 
2$ 

10 

PC.INROY 



73 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

:MASTER CLEAR KMC11 

;SET LINE UNIT LOOP 

.-LOAD SILO WITH 3 SYNCS 

:AND A 301 

.•CLOCK THE 301 IN AND 20 EXTRA TICKS 
.-yAIT FOR INRDY 

.-NEXT yORD IS INSTRUCTION. ROMCLK PC=5304 
.•P0RT4 IN DATA 
.-PUT "TOUND" IN R4 
.PUT "EXPECTED" IN R5 
;UAS A 301 RECEIVED? 

.ERROR FIRST CHARACTER INCORRECT 
.•yAIT FOR INRDY 

;NEXT yORD IS INSTRUCTION. ROMCLK PC=5304 
;P0RT4 IN DATA 
;PUT "TOUND" IN R4 
;PUT "EXPECTED" IN R5 
;yAS A 377 RECEIVED? 

: ERROR, 377 UAS NOT RECEIVED 
;yAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 
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F 7 



SEQ 0083 



4192 


021074 


021204 






4195 


021076 


016104 


000004 




4194 


021102 


012705 


000377 




4195 


021106 


120504 






4196 


021110 


001401 






4197 


021112 


104010 






4198 


021114 








4199 










4200 










4201 










4202 










4205 










4204 










4205 










4206 










4207 










4208 










4209 










4210 










4211 


021114 


000004 






4212 


021116 


012737 


000040 


001202 
001442 


4213 


021124 


012737 


021342 


4214 










4215 


021132 


10<>410 






4216 


021134 


032737 


020000 


002050 


4217 


021142 


001004 






4218 


021144 


032737 


040000 


002050 


4219 


021152 


001473 






4220 


021154 


005011 






4221 


021156 


012761 


000100 


000004 


4222 


021164 


104412 






4223 


021166 


122113 






4224 


021170 


104414 


000002 




4225 


021174 


104412 






4226 


021176 


021264 






4227 


021200 


016104 


000004 




4228 


021204 


042704 


000023 




4229 


021210 


012705 


000310 




4230 


021214 


032737 


020000 


002050 


4231 


021222 


001402 






4232 


021224 


042705 


000200 




4233 










4234 


021230 


032737 


000004 


002054 


4235 


021236 


001402 






4236 










4237 


021240 


042705 


000200 




4238 


021244 








4239 


021244 


020504 






4240 


021246 


001401 






4241 










4242 










4243 


021250 


104011 






4244 


021252 


005061 


000004 




4245 


021256 


104412 






4246 


021260 


122113 






4247 


021262 


104414 


000002 





3$: 



TST40: 



3$; 



IS: 



021204 

HOV 

HOV 

CHPB 

BEQ 

ERROR 



4(R1),R4 
#377. R5 
R5.R4 
3» 

10 



:P0RT4 IN DATA 
;PUT 'TOUNO"' IN R4 
;PUT "EXPECTED" IN R5 
;yAS A 377 RECEIVED? 

;ERROR. 177 WAS NOT RECEIVED 



TEST 40 

:*CABLE TURNAROUND TEST 

.••CLEAR LINE UNIT LOOP, SET DTR 

.••VERIFY THAT RING AND MODEM READY ARE SET 

;^CLEAR DTR. VERIFY THAT RING AND MRDY ARE CLEARED 



; TEST 


40 


• 

SCOPE 




nov 


f40,STSTNM 






HSTCLR 




BIT 


fBIT13 STAT1 


BNE 


.♦12 


BIT 


fBIT14 STAT1 


BEQ 


2$ 


CLR 


(R1 ) 


MOV 


f 100.4(R1 ) 


ROnCLK 




122113 




TIMER. 


2 


ROMCU 




021264 




MOV 


4(R1).R4 


BIC 


#23,R4 


MOV 


f3ld.R5 


BIT 


#B1T13.STAT1 


BEQ 


.♦6 


BIC 


fBIT7,R5 


BIT 


fBIT2.STAT5 


BEQ 


3$ 


BIC 


fBIT7.R5 


CMP 


R5.R4 


BEQ 


1$ 



ERROR 
CLR 

ROMCLK 
122113 
TIMER, 



11 

4(R1) 



; LOAD THE NO. OF THIS TESf 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.■MASTER CLEAR KMC11 

;IS LINE UNIT H8202? 

;BR IF YES (DO TEST EVEN IF NO LOOP-BACIC CONN) 
:IS TURNAROUND CONNECTOR ON? 
.-SKIP TEST IF NO 
;CLEAR LINE UNIT LOOP 
;LOAD P0RT4 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=S304 

;SET DTR 

.-WAIT 

.•NEXT yORD IS INSTRUCTION. ROMCLK PC=5304 
;P0RT4.LU13 

; PUT Found in r4 ♦♦♦♦new 

: CLEAR JUNK 

: GET EXPECTED. 

: IS LINE UNIT M8202? 

; NO RING ON M8202 

; IS THIS V.35 MODEM? 
; NO THEN GO AHEAD. 

; YES-NO RING ON V.35 MODEM 

; ARE RING AND MODEM READY SET? 

: WARNING! IF V.35 AND AUTO STARTED. 

; YOU WILL GET THIS ERROR. YOU MUST 

: MANUALL NASWER THE QUESTIONS FOR V.35. 

.-ERROR. RING OR MRDY NOT SET 

; CLEAR P0RT4 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; CLEAR DTR 
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ATI T A^ 


104412 






A*^! T7A 


021264 




/ ^ C A 


AO 1 T?'^ 


016104 


000004 


/ 1 
*ti 31 


ATI 

02 i2'6 


042704 


000023 


/ ^ C ^ 


AT 1 TAT 

021 302 


005005 






U21iU4 


032737 


020000 




021 512 


001402 




A 


ATI 11 / 

U2 1 J i*» 


052705 


000010 




nTI T9A 


032737 


000004 




ATI T9£ 
Uc 1 9£0 


001402 






091 \\C\ 


042704 


000200 




n91 XXL 






L 5Aft 


A91 T't£ 
Uc 1 95*1 


120405 






091 'XTA 
Uc 1 9 jO 


001401 












HCO J 


















ATI XLO 
Wc 1 jM\J 


104011 




*«C0O 


091 '^£9 
Uc 1 9«ic 






•ICOf 
















hcOt 
















L 071 
•»£ r 1 








A57D 
















AO 7/. 








Z.57^ 








Ht f O 








A377 








A97R 
••c f O 


ft91X£9 

Uc 1 J*»C 


000004 






091 T££ 

Uc 1 JHH 


012737 


000041 




091 TS9 
Uc 1 93c 


012737 


021536 


A5ai 

••CO 1 








HCOc 


091 Xfi(\ 


104410 






091 

Uc I JOc 


032737 


020000 




091 T70 
Uc 1 9r U 


001004 




A9A^ 


091 X7P 


032737 


040000 




091£00 
Uc 1 fuu 


001456 




••tOf 


091 £09 
Uc 1 tuc 


012711 


004000 




Uc 1 *»Wv 


012761 


000100 




n91£1£ 

Uc 111* 


104412 






09l£l A 
Uc 1 *• 1 o 


122113 




£301 


091£9n 

Uc 1 HCU 


104414 


000002 


£909 

HCTC 


091£9£ 


012761 


000001 


£90X 


091£X9 
Uc I'i9c 


104412 




/ oa/ 

*•£▼«• 


091£X£ 
Uc l'»9* 


122111 




£90^ 


091£XA 
Uc I ** jO 


004537 


031530 




091££9 
Uc 1 


032012 




£907 


091 £££ 
Uc 1 


000100 






021446 


012700 


000050 


4299 


021452 


005011 




4300 


021454 






4501 


021454 


104412 




4502 


021456 


021264 




4303 


021460 


016104 


000004 



08 
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G 7 



SEO 0084 



ROMCLK 

021264 

iiOV 

BIC 

fLR 

BIT 

BEQ 

BIS 

BIT 

BEQ 

BIC 

CMPB 
BEQ 



4(R1).R4 
#23. R4 
R5 

#BIT13.STAT1 
.♦6 

fBlT3,R5 

fBIT2.STAT3 

4$ 

#B1T7,R4 

R4,R5 
2$ 



2$: 



ERROR 11 



NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
P0RT4 LU13 

PUR rOUND IN R4 ♦♦♦NEW 

STRIP JUNK 

SET EXPECTED. 

IS THIS A M8202? 

YES THEN EXPECT MRDY SET. 
IS THIS V.35? 



; ARE RING AND MRDY CLEAR? 

; WARNING! YOU MAY GET THIS ERROR IF V.35 
; AND AUTOSTART. YOU MUST MANNUALLY ANSWER 
; ALL QUESTIONS IF V.35. 
.-ERROR, RING OR MRDY NOT CLEAR 



TEST 41 •••••• 

:*CABLE TURNAROUND TEST 

.••CLEAR LIME UNIT LOOP, LOAD OUT DATA SILO 
.-•VERIFY THAT ALL MODEM SIGNALS ARE SET 



TEST 41 



TST41: SCOPE 



001202 


NOV 


«41.tTSTNM 


001442 


MOV 


#TST42.HEXT 




MSTCLR 




002050 


BIT 


#BIT13.STAT1 




BNE 


.♦12 


002050 


BIT 


fBlTU.STATl 




BEQ 


If 




MOV 


fBIT11,(R1) 


000004 


MOV 


#100. 4(R1) 




ROMCLK 






122113 






TIMER. 


2 


000004 


MOV 


#1,4(R1) 




ROMCLK 






122111 






JSR 


R5,MESLD 




MESOAT 






64. 






MOV 


#50. RO 




CLR 


(Rl) 


2$: 








ROMCLK 






021264 






MOV 


4(R1).R4 



; LOAD THE MO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMCII ADDRESS 

.-MASTER CLEAR KHC11 

:IS LINE UNIT N8202? 

:BR IF YES (l»0 TEST EVEN IF NO LOOP-BACK CONN) 
:IS TURNAROUND CONNECTOR ON? 
;SKIP TEST IF NO 
:SET LINE UNIT LOOP 
.-LOAD P0RT4 
;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
.'CLEAR ALL MODEM SIGNALS. EXCEPT DTR 
:WAIT 

;LOA0 P0RT4 

.-NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;SET SOM 

:F1LL OUT DATA SILO 
:UITH 64 CHARACTERS 

:PREPARE FOR DELAY 
.■CLEAR LINE UNIT LOOP 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;P0RT4 LU13 

;PUT 'TOUND" IN R4 
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H 7 



SEO 0085 



4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4540 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 



021464 
021470 
021474 
021502 
021504 
021510 
021510 
021516 
021520 
021524 
021526 
021530 
021532 
021534 



021536 



021536 
021540 
021546 
021554 

021562 
021564 
021570 
021574 
021576 
021604 
021612 
021616 
021622 
021624 
021630 
021634 
021636 
021642 
021644 
021646 
021650 
021652 
021656 
021660 
021662 
021664 



042704 
012705 
032737 
001402 
042705 

032737 
001402 
042705 
120504 
001403 
005300 
001350 
104011 



000004 
012737 
012737 
012737 

104410 

012711 

004737 

005000 

012737 

012737 

005037 

004737 

000000 

104413 

104413 

005200 

004537 

000001 

000000 

000000 

103405 

004737 

103006 

104012 

000404 

004737 



000023 
000354 

000004 002054 
000200 

020000 002050 
000200 



4$: 



1$: 



000042 001202 
022052 001442 
021570 001444 



004000 
031572 

120001 031226 
000000 021644 
021646 
031232 



TST42: 



64S: 



000021 
000001 

031122 



031344 



031344 



65$: 



66S: 
67$: 



68$: 



BIG #23, R4 

MOV #354-R5 

BIT #BIT2.STAT3 

BEQ 4$ 

PIC #BIT7,R5 

BIT #BIT13,STAT1 

BEQ .^6 

BIG #BIT7,R5 

CMPB R5,R4 

BEQ 1$ 

DEC RO 

6NE 2$ 

ERROR 11 



; CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 



: NO RING ON V.35 

;IS LINE UNIT n8202? 

:BR IF NO 

:N0 RING ON n8202 

; COMPARE EXPECTED AND FOUND 

;BR IF OK 

;DEG DELAY COUNT 

;BR IF NOT ZERO 

:ERROR, ALl SIGNALS ARE NOT SET 

; WARNING YOU MUST MANUALLY ANSWER QUESTIONS 

; IF YOU HAVE V.35. 



;**t*tt*tt«**«t***ttt«««tt*« TEST 42 
;*TEST OF CRC OPERATION 

;*USIN6 THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
;»0. VERIFY THE LSB OF THE 8CC ON EACH SHIFT 
;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 



TEST 42 



SCOPE 
HOV 
MOV 
MOV 

MSTCLR 

MOV 

JSR 

CLR 

NOV 

NOV 

CLR 

JSR 

0 

DATACLK, 

DATACLK, 

INC 

JSR 

1 

0 

0 

BCS 

JSR 

BCC 

ERROR 

BR 

JSR 



f42,$TSTNH 
fTST43,NEXT 
#64$, LOCK 



fBITIl.(Rl) 

PC.CLRIO 
RO 

#CRC16,XP0LY 

#0,66$ 

67$ 

PCBCCLD 

21 
1 

RO 

R5,SIM6CC 



68$ 

PCGETQO 
69$ 
12 
69$ 

PCGETQO 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

: ADDRESS FOR LOCK ON DATA. 

:R1 CONTAINS BASE KNCll ADDRESS 

:NASTER CLEAR KNCll 

;SET LU LOOP 

;CLEAR BCC REGISTERS 

: START SHIFT COUNTER AT ZERO 

.-LOAD POLYNONIAL FOR SOFTWARE BCC 

:LOAD CHAR FOR SOFTWARE BCC 

.•CLEAR OLD SOFTWARE BCC 

.LOAD OUT SILO WITH 2 SYNCS 

;AND THE CHARACTER 0 

:GET TRANSMITTER ACTIVE 

.SHIFT BCC ONCE 

.BUNP SHIFT COUNT 

: CALCULATE SOFTWARE BCC LSB 

.-ONE SHIFT 

:DATA CHARACTER 

.OLD BCC 

:BR IF SOFT BCC LSB IS SET 
;GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
:ERROR, BCC LSB IS SET 
.•CONTINUE 

.-GET HARDWARE TRANSMITTER BCC LSB 
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SEQ 0086 



4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 



021670 
021672 
021674 
021674 
021700 
021706 
021712 
021714 
021716 
021724 
021730 
021732 
021740 
021746 
021752 
021756 
021760 
021764 
021770 
021772 
021776 
022000 
022002 
022004 
022006 
022012 
022014 
022016 
022020 
022024 
022026 
022030 
022030 
022054 
022042 
022046 
022050 
022052 



103401 








BCS 


69$ 


;BR IF HARD BCC LSB IS SET 


104016 








ERROR 


16 


.•ERROR, HARD BCC LSB IS CLEAR 


006037 


021644 




69t: 


ROR 


66$ 


;SHIFT SOFT DATA 


013737 


031230 


021646 




MOV 


CALBCC.67$ 


;LOAD OLD SOFT BCC 


022700 


000010 






CHP 


«10,RO 


;DONE YET? 


001346 








BNE 


65$ 


;BR IF NOT DONE 


104405 








SC0P1 




.SCOPE SUBTEST (SW09=1) 


012737 


021724 


001444 




nov 


#71$. LOCK 


;NEU SC0PE1 


004737 


031572 




71$: 


JSR 


PC.CLRIO 


;CLEAR BCC REGISTERS 


005000 








CLR 


RO 


.•START SHIFT COUNTER AT ZERO 


012737 


120001 


031226 




MOV 


#CRC16,XP0LV 


.•LOAD POLYNOMIAL FOR SOFTWARE BCC 


012737 


000000 


C22000 




MOV 


#0,73$ 


;LOAD CHAR FOR SOFTWARE BCC 


005037 


022002 






CLR 


74$ 


.•CLEAR OLD SOFTWARE BCC 


004737 


031232 






JSR 


PCBCCLD 


.•LOAD OUT SILO WITH 2 SYNCS 


000000 








0 




;AND THE CHARACTER 0 


104413 


000032 






DATACLK, 


32 


;GET RECEIVER ACTIVE 


104413 


000001 




72$: 


OATACLH 


1 


.•SHIFT BCC ONCE 


005200 








INC 


RO 


:BUMP SHIFT COUNT 


004537 


031122 






JSR 


R5.SIHBCC 


.•CALCULATE SOFTWARE BCC LSB 


000001 








1 




;ONE SHIFT 


000000 






73$: 


0 




;DATA CHARACTER 


000000 






74$: 


0 




:OLD BCC 


103405 








BCS 


75$ 


;BR IF SOFT BCC LSB IS SET 


004737 


031356 






JSR 


PC.GETQl 


:GET HARDWARE RECEIVER BCC LSB 










nrr 




•BR IF HARD BCT LSB IS CLEAR 


104013 








ERROR 


13 


.ERROR, BCC LSB IS SET 


000404 








BR 


76$ 


.CONTINUE 


004737 


031356 




75$: 


JSR 


PC-GETQI 


.GET HARDWARE RECEIVER BCC LSB 


103401 








BCS 


76$ 


;BR IF HARD BCC LSB IS SET 


104017 








ERROR 


17 


; ERROR. BCC LSB IS CLEAR 


006037 


022000 




76$: 


ROR 


73$ 


; SHI FT SOFT DATA 


013737 


031230 


022002 




MOV 


CALBCC.74$ 


;LOAD OLD SOFT BCC 


022700 


000010 






CMP 


#10. RO 


:DONE YET? 


001346 








BNE 


72$ 


:BR IF NOT DONE 


104405 








SCOPI 




; SCOPE SUBTEST (SW09=1) 



022052 000004 

022054 012737 000043 001202 

022062 012737 022366 001442 

022070 012737 022104 001444 

022076 104410 



77$: 

TEST 43 

:*TEST OF CRC OPERATION 

.••USING THE CRC16 POLYNOMIAL. SINGLE CLOCK THE CHARACTER 
;*377, VERIFY THE LSB OF THE BCC ON EACH SHIFT 
;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 

; TEST 43 

tST43: SCOPE 

MOV #43.»TSTMM ; LOAD THE NO. OF THIS TEST 

NOV #TSf44,MEXT ; POINT TO TH€ START OF NEXT TEST. 

NOV I64$.L0CK ; ADDRESS FOR LOCK ON DATA. 

.Rl CONTAINS BASE KNCII ADDRESS 

NSTCLR .MASTER CLEAR KNC11 



CZKCF 


HACY11 


3OA(10S2) 08-JL 


CZKCf.PlI 08 


- mi -80 


08-24 




022100 


012711 


004000 

WW~ WW 


4417 


022104 


004737 


031572 


4418 


022110 


005000 




4419 


022112 


012737 


120001 


4420 


022120 


012737 


000377 


4421 


022126 


005037 


022162 


4422 


022132 


004737 


031232 


4423 


022136 


000377 




4424 


022140 


104413 


000021 


4425 


022144 


104413 


000001 


4426 


022150 


005200 




4427 


022152 


004537 


031122 


4428 


022156 


000001 




4429 


022160 


000000 




4430 


022162 


000000 




4431 


022164 


103405 




4432 


022166 


004737 


031344 


4433 


022172 


103006 




4434 


022174 


104012 




4435 


022176 


000404 




4436 


022200 


004737 


031344 


4437 


022204 


103401 




4438 


022206 


104016 




4439 


022210 






4440 


022210 


006037 


022160 


4441 


022214 


013737 


031230 


4442 


022222 


022700 


000010 


4443 


022226 


001 346 




4444 


022230 


104405 




4445 


022232 


012737 


022240 


4446 


022240 


004737 


031572 


4447 


022244 


OOSOOO 




4448 


022246 


012737 


120001 


4449 


022254 


012737 


000377 


4450 


022262 


005037 


022316 


4451 


022266 


004737 


031232 


4452 


022272 


000377 




4453 


022274 


104413 


000032 


^454 


022300 


104413 


000001 


4455 


022304 


005200 




4456 


A^ ^ V A^ 

022306 


004537 


031122 


4457 


A^ V 4 ^ 

022312 


000001 




4458 


022314 


000000 




4459 


A T 4 A 

022316 


000000 




4460 


A 'W ^ A 

022320 


103405 




4461 


022322 


004737 


031356 


4462 


A'^ ^ V 

022326 


103006 




4463 


A^ ^ W A 

022330 


104013 




4464 


A^ ^ W ^ 

022332 


000404 




4465 


Af^ V Y t 

022334 


004737 


031356 






103401 




4467 


022342 


104017 




4468 


022344 






4469 


022344 


006037 


022314 


4470 


022350 


013737 


031230 


4471 


022356 


022700 


000010 
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J 7 



SEQ 0087 



64S: 



031226 
022160 



65$: 



661: 
67$: 



68$: 



69$: 



71$: 



72$: 



73$: 
74$: 



75$: 



76$: 



HOV 
JSR 
CLR 

nov 
nov 

CLR 
JSR 
377 

OATACLK 

OATACLK 

INC 

JSR 

1 

0 

0 

BCS 

JSR 

BCC 

ERROR 

BR 

JSR 

BCS 

ERROR 

ROR 

MOV 

C«P 

BNE 

SC0P1 

ROV 

JSR 

CLR 

wov 
nov 

CLR 
JSR 
377 

DATACLK 

DATACLK 

INC 

JSR 

1 

0 

0 

BCS 

JSR 

BCC 

ERROR 

BR 

JSR 

BCS 

ERROR 

ROR 
«0V 
C«P 



#B1T11 ,(R1) 

PC.CLRi: 

RO 

«CRC16,XP0LV 

#377.66$; 

67$ 

PC.BCCLO 

21 

1 

RO 

RS,SinBCC 



68$ 

PCGETQO 
69$ 
12 
69$ 

PC.GETQO 
69$ 

16 

66$ 

CALBCC.67$ 
#10. RO 
65$ 

#711. LOCK 

PC.CLRIO 

RO 

#CRC16.XP0LV 

#377.71$; 

74$ 

PC.BCCLO 

: 

RO 

RS.siracc 



75$ 

PC-GETQI 
76i 
13 
76$ 

PC.GETOl 
76i 

17 

73$ 

CA' BCC, 74$ 
#10, RO 



;SET LU LOOP 

;CLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 

;LOAD POLYNOMIAL FOR SOFTWARE BCC 

;LOAD CHAR FOR SOFTWARE BCC 

; CLEAR OLD SOFTWARE BCC 

;LOAD OUT SILO WITH 2 SYNCS 

;ANO THE CHARACTER 577 

;6ET TRANSMITTER ACTIVE 

;SHIFT BCC ONCE 

;BUMP SHIFT COUNT 

;CALCULATE SOFTWARE BCC LSB 

;ONE SHIFT 

;DATA CHARACTER 

;OLD BCC 

:BR IF SOFT BCC LSB IS SET 

:GET HARDWARE TRANSMITTER BCC LSB 

;BR IF HARD BCC LSB IS CLEAR 

: ERROR, BCC LSB IS SET 

; CONTINUE 

;GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB iS SET 
; ERROR. HARD BCC LSB IS CLEAR 

; SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 

;OONE YET? 

;BR IF NOT DONE 

; SCOPE SUBTEST (SW09=1) 

;NEW SCOPE 1 

; CLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 

:LOAD POLYNOMIAL FOR SOFTWARE BCC 

:LOAD CHAR FOR SOFTWARE BCC 

; CLEAR OLD SOFTWARE BCC 

aOAD OUT SILO WITH 2 SYNCS 

:AND THE CHARACTER 377 

;6ET RECEIVER ACTIVE 

.•SHIFT BCC ONCE 

;8U«P SHIFT COUNT 

: CALCULATE SOFTWARE BCC LSB 

:ONE SHIFT 

:DATA CHARACTER 

;0L0 BCC 

:BR IF SOFT BCC LSB IS SET 
:GET HARDWARE RECEIVER BCC LSB 
:BR IF HARD BCC LSB IS CLEAR 
:ERROR. BCC LSB IS SET 
; CONTINUE 

;GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS SET 
;ERROR. BCC LSB IS CLEAR 

; SHI FT SOFT DATA 
;LOAO OLD SOFT BCC 
;DONE YET? 
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IC 7 



SEO 0088 



HH f C 












BNF 


72$ 


















LUIL 


yjcc juv 








77t- 






















4476 
































4478 












;*TEST 


OF CRC OPERATI 


4479 












; •USING 


THE CRC16 POL 


4480 












;*125, 


VERIFY THE LSB 


4461 












;*TEST 


TRANSMITTER FI 


4482 
















4483 
















4484 












: TEST 


44 


4485 












ff 




4486 










TST44: 






4487 


022366 


000004 

W W W w W • 






SCOPE 




4488 


022370 


012737 


000044 


001202 




nov 


#44,$TSTNM 


4469 


022376 


012737 


022702 


001442 




MOV 


ffTST45,NEXT 


4490 


022404 


012737 


022420 


001444 




MOV 


f64$aOCK 


4491 
















4492 


022412 


104410 








MSTCLR 


fBITIl.(RI) 


4493 


022414 


012711 


004000 






MOV 


4494 


022420 


004737 


031572 




64$: 


JSR 


PC.CLRIO 


4495 


022424 
022426 


005000 








CLR 


RO 


4496 


012737 


1 20001 


031226 




MOV 


#CRC16,XP0LY 
#125.66$; 


4497 


022434 


012737 


000125 


022474 




MOV 


4498 


022442 


005037 


022476 






CLR 


67$ 


4499 


022446 


004737 


031232 






JSR 


PCBCCLO 


4500 


022452 


000125 








125 




4501 


022454 


104413 


000021 






OATACLK. 21 


4502 


022460 


104413 


000001 




65S: 


OATACLK. 1 


4503 


022464 


005200 








INC 


RO 


4504 


022466 


004537 


031122 






JSR 


R5.SIM8CC 


4505 


022472 


000001 








1 




4506 


022474 


000000 






66S: 


0 




4507 


022476 


000000 






67$: 


0 


68$ 


4508 


022500 


103405 








BCS 


4509 


022502 


004737 


031344 






JSR 


PC.GETQO 


4510 


022506 


103006 








BCC 


69$ 


4511 


022510 


104012 








ERROR 


12 


4512 


022512 


000404 








BR 


69$ 


4513 


022514 


004737 


031344 




68$: 


JSR 


PC.GETQO 
69i 


4514 


022520 


103401 








BCS 


4515 


022522 


104016 








ERROR 


16 


4516 


022524 








69$: 




66$ 


4517 


022524 


006037 


022474 






ROR 


4518 


022530 


013737 


031230 


022476 




MOV 


CALBCC.67$ 


4519 


022536 


022700 


000010 






CMP 


#10. RO 


4520 


022542 


001346 








BNE 


65$ 


4521 


022544 


104405 








SC0P1 


#71$, LOCK 


4522 


022546 


012737 


022554 


001444 




MOV 


4523 


022554 


004737 


031572 




71$: 


JSR 


PC.CLRIO 


4524 


022560 


005000 








CLR 


RO 


4525 


022562 


012737 


120001 


031226 




MOV 


#CRC16.XP0Lt 
#125. 7U; 


4526 


022570 


012737 


000125 


022630 




MOV 


4527 


022576 


005037 


022632 






CLR 


74$ 



:BR IF NOT DONE 

.SCOPE SUBTEST (SW09sl) 



TEST 44 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

: ADDRESS FOR LOCK ON DATA. 

;R1 CONTAINS BASE KMCll ADDRESS 

;MASTER CLEAR KMCll 

:SET LU LOOP 

;CLEAR BCC REGISTERS 

; START SHIFT COUNTER AT ZERO 

.-LOAD POLYNOMIAL FOR SOFTWARE BCC 

:LOAD CHAR FOR SOFTWARE BCC 

: CLEAR OLD SOFTWARE BCC 

.-LOAD OUT SILO WITH 2 SYNCS 

:AND THE CHARACTER 125 

:6ET TRANSMITTER ACTIVE 

.•SHIFT BCC ONCE 

;BUMP SHIFT COUNT 

.•CALCULATE SOFTWARE BCC LSB 

;ONE SHIFT 

:DATA CHARACTER 

;OLD BCC 

;BR IF SOFT BCC LSB IS SET 
:GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
.ERROR. BCC LSB IS SET 
. CONT INUE 

•GET HARDWARE TRANSMITTER BCC LSB 
:BR IF HARD BCC LSB IS SET 
; ERROR. HARD BCC LSB IS CLEAR 

;SHIFT SOFT DATA 

:LOAD OLD SOFT BCC 

;0ONE YET? 

;BR IF NOT DONE 

.SCOPE SUBTEST (SW09=1) 

:NEW SCOPE 1 

.CLEAR BCC REGISTERS 

.•START SHIFT COUNTER AT ZERO 

.LOAD POLYNOMIAL FOR SOFTWARE BCC 

:LOAD CHAR FOR SOFTWARE BCC 

; CLEAR OLD SOFTWARE BCC 



CZuCf MAC^fll 50A(1052) 08-JUL-80 
CZltCf.P'l 08-JUL-80 08:2<. 



08:27 PAGE 90 

BASIC RECEIVER TESTS 



L 7 



SEQ 0089 



4S28 

i,529 

4550 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4SA1 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4 564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 



022602 
022606 
022610 
022614 
022620 
022622 
022626 
022630 
022632 
022634 
022636 
022642 
022644 
022646 
022650 
022654 
022656 
022660 
022660 
022664 
022672 
022676 
022700 
022702 



022702 
022704 
022712 
022720 

022726 
022730 
022734 
022740 
022742 
022750 
022756 
022762 
022766 
022770 
022774 
023000 
023002 
023006 
023010 



004737 
000125 
104413 
104413 
005200 
004537 
000001 
000000 
000000 
103405 
004737 
103006 
104013 
000404 
004737 
103401 
104017 

006037 
013737 
022700 
001346 
104405 



031232 

000032 
000001 

031122 



031356 
031356 



022630 
031230 
000010 



000004 

012737 000045 

012737 023216 

012737 022734 



104410 
012711 
004737 
005000 
012737 
012737 
005037 
004737 
000252 
104413 
104413 
005200 
004537 
000001 
000000 



004000 
031572 

120001 
000252 
023012 
031232 

000021 
000001 

031122 



022632 



72$: 



731: 
74$: 



75$: 
76$: 

77$: 



001202 
00U42 
001444 



TST45; 



64$: 



031226 
023010 



65$: 



66$: 



JSR 
125 

DATACLK, 
DATACLK, 
INC 
JSR 
1 
0 
0 

BCS 
JSR 
BCC 
ERROR 
BR 
J%h 
BCS 
ERROR 

ROR 

nov 

CHP 
BNE 
SCOPl 



PC.BCCLD 



32 

1 



RO 

R5,SIMBCC 



75$ 

PC.GETOI 
76i 
13 
76$ 

PCGETOI 

76$ 

17 

73$ 

CALBCC.74$ 
#10, RO 
72$ 



;L0AD OUT SILO WITH 2 SYNCS 

:AND THE CHARACTER 125 

:GET RECEIVER ACTIVE 

:SHIFT BCC ONCE 

;BU«P SHIFT COUNT 

; CALCULATE SOFTWARE BCC LSB 

;0NE SHIFT 

.-DATA CHARACTER 

.-OLD BCC 

;BR IF SOFT BCC LSB IS SET 
;6ET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
.-ERROR, BCC LSB IS SET 
; CONTINUE 

;6£T HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS SET 
.-ERROR. BCC LSB IS CLEAR 

.-SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 

.-DONE YET? 

;BR IF NOT DONE 

.-SCOPE SUBTEST (SU09=1} 



TEST 45 ••••••...♦•••••••••I 

;*TEST OF CRC OPERATION 

.-•USING THE CRC16 POLYNOMIAL. SINGLE CLOCK THE CHARACTER 
;«252. VERIFY THE LSB OF THE BCC ON EACH SHIFT 
.-•TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 



TEST 45 



SCOPE 
HOV 

mv 

MOV 



#45.$TSTN« 

#TST46,NEXT 

«6A$.L0CK 



MSTCLR 
MOV 
JSR 
CLR 
MOV 
MOV 
CLR 
JSR 
252 

DATACLK. 
DATACLK, 
INC RO 
JSR R5.S1MBCC 
1 
0 



iBIT11.(R1) 
PC.CLRIO 
RO 

#CRC16.XP0LY 
«252.66$: 
67$ 

PC.BCCLD 

21 

1 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

; ADDRESS FOR LOCK ON DATA. 

:R1 CONTAINS BASE KNCll ADDRESS 

:MASTER CLEAR KMC11 

.-SET LU LOOP 

.-CLEAR BCC REGISTERS 

; START SHIFT COUNTER AT ZERO 

.-LOAD POLYNOMIA'. FOR SOFTWARE BCC 

.LOAD CHAR FOR SOFTWARE BCC 

.CLEAR OLD SOFTWARE BCC 

:LOAD OUT SILO WITH 2 SYNCS 

.-AND THE CHARACTER 2S2 

.-GET TRANSMITTER ACTIVE 

.-SHIFT BCC ONCE 

:BUMP SHIFT COUNT 

.-CALCULATE SOFTWARE BCC LSB 

.-ONE SHIFT 

:DATA CHARACTER 



CZKCF MACY11 30A(1052) 08-JUL-80 



cztccr.pn 08 


-JUL-80 


08:24 




VC J\J < c 


000000 




H JO J 




103405 








004737 


031344 


*♦ JO f 




1 03006 








104012 






055056 


000404 






023030 

VC 


004737 


031344 




02 3034 

Ww J~ 


103401 




A 592 


023036 


104016 




4S9^ 


023040 






4594 


023040 


006037 


023010 


4595 


023044 


013737 


031230 


4596 


023052 

VC ^v ^c 


022700 


A A A A 4 A 

000010 


4597 


023056 

VC ^v 


001 346 




4598 


023060 

VC ^wwv 


104405 




4599 


023062 


012737 


023070 


4600 


023070 

VC W • V 


004737 


A V 4 r 

031572 


4601 


023074 


005000 




4602 


023076 


012737 


120001 


4603 


023104 

VC ^ ■ v~ 


012737 


000252 


4604 


023112 


005037 


023146 


4605 


023116 


004737 


031232 


4606 


023122 

VC vice 


000252 




4607 


023124 

VC ^ ' c~ 


10*413 


A A A A 9 ^ 

000032 


4608 


023130 


104413 


MA A A A 4 

000001 


4609 


023134 


005200 




4610 


023136 


004537 


031 122 


4611 


023142 


000001 




4612 


023144 


AA AA AA 

000000 




4613 


023146 


A A A A A A 

000000 




4614 


0231 50 


4 A V i Af 

103405 




4615 


023152 


A A i Y V ^ 

004737 


A V 4 V C ^ 

031356 


4616 


023156 


1 03006 




4617 


023160 


104013 




4618 


023162 


AAAi Ai 

000404 




4619 


023164 


A A i ^ 9 "> 

004737 


A V 4 V C / 

031356 


4620 


023170 


103401 




4621 


023172 


4 Ai A4 7 

10401 7 




4622 


023174 






4623 


023174 


A A^ A V ^ 

006037 


A V 4 / # 

023144 


4624 


023200 


01 3737 


ATI 1TA 

031230 


4625 


023206 


022700 


AAA A i A 

000010 


4626 


023212 


A A 4 V i Z 

001 346 




4627 


02 3214 


4 Ai / AC 

104405 




4628 


023216 






4629 








4630 








4631 








4632 








4633 








4634 








4635 








4636 








4637 








4638 








4639 
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BASIC RECEIVER TESTS 



M 7 



SEQ 0090 



67$: 



68S: 



69$: 



71S: 



72$: 



73$: 
74$: 



75$: 



76$: 



77$: 



0 

BCS 
JSR 

see 

FRROR 

BR 

JSR 

BCS 

ERROR 

ROR 

HOV 

CMP 

6NE 

SC0P1 

MOV 

JSR 

CLR 

MOV 

MOV 

CLR 

JSR 

252 

DATACLK 
O^TACLK 
INC 
JSR 

1 
0 
0 

BCS 

JSR 

BCC 

ERROR 

BR 

JSR 

BCS 

ERROR 

ROR 
NOV 
CMP 
BNE 
SCOPl 



68$ 

PC.GETQO 
69i 
12 
69$ 

PC.GETQO 

69i 

16 

66$ 

CALBCC.67$ 

»10.R0 

65$ 

#71$, LOCK 

PCCLRIO 

RO 

#CRC16.XP0LY 

#252.73$; 

74$ 

PCBCCLD 

32 
1 

RO 

R5,S1MBCC 



75$ 

PC.GETQI 
76$ 
13 
76$ 

PC.GETQI 
76i 

17 

73$ 

CALBCC.74$ 

f10.R0 

72$ 



;OLD BCC 

;BR IF SOFT BCC LSB IS SET 

:GET HARDWARE TRANSMITTER BCC LSB 

;BR IF HARD BCC LS3 IS CLEAR 

;ERROR, BCC LSB IS SET 

; CONTINUE 

;GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB IS SET 
.•ERROR, HARD BCC LSB IS CLEAR 

.•SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 

.-DONE YET? 

;BR IF NOT DONE 

.•SCOPE SUBTEST (SW09=1) 

;NEU SC0PE1 

;CLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 

;LOAD POLYNOMIAL FOR SOFTWARE BCC 

;LOAD CHAR FOR SOFTWARE BCC 

; CLEAR OLD SOFTWARE BCC 

.LOAD OUT SILO WITH 2 SYNCS 

:AND THE CHARACTER 252 

.GET RECEIVER ACTIVE 

:SHIFT BCC ONCE 

;BUPtf> SHIFT COUNT 

; CALCULATE SOFTWARE BCC LSB 

.ONE SHIFT 

.DATA CHARACTER 

;OLD BCC 

:BR IF SOFT BCC LSB IS SET 
:GET HARDWARE RECEIVER BCC LSB 
:BR IF HARD BCC LSB IS CLEAR 
: ERROR. BCC LSB IS SET 
• CONTINUE 

•GET HARDWARE RECEIVER BCC LSB 
.•BR IF HARD BCC LSB IS SET 
.ERROR. BCC LSB IS CLEAR 

.•SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 

.•DONE YET? 

;BR IF NOT DONE 

.•SCOPE SUBTEST (SU09=1) 



;*«*tt«t*««tt*tt«tt«*««««**« TEST 46 ••••••%•%.•••••••••••••..•» 

.••TRANSMITTER CRC TEST 

.••USING THE CRC16 POLYNOMINAL. SINGLE CLOCK A BINARY 

:*COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT 



TEST 46 
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BASIC RECEIVER TESTS 

TST46: SCOPE 



czitcF.pn 08 


-JUL-80 


08:24 




\Jc jc < o 


000004 








0^2737 


000046 




WC JCCU 


012737 


023454 










Lf\LL 


Uc JC J*» 


104410 




hOh j 


WC JC jo 


012711 


004000 




0???4? 

wC jC"*C 


005003 






wC JC^^ 


005004 






0?^?46 

vC JC**w 


005005 






023250 

VC 


005037 


023352 


46S0 


023254 

VC JC 


012737 


120001 




023262 

wC JC WC 


004737 


031374 


46S? 


023266 

vc JCww 


010461 


000004 


4^S^ 


vc JC 1 c 


104412 






023274 

VC JC ' ^ 


122110 




46SS 


023276 

VC JC r U 


005204 




46S6 


023300 

VC J J vv 


010461 


A A A A A 1 

000004 


4657 


023304 

VC J JV^ 


104412 




46S6 


023306 

VC J JVW 


122110 




4659 


023310 

vc J J ■ V 


005204 




4660 


023312 

VC J J ■ c 


010461 


000004 


4661 


023316 

VC J J < w 


104412 




4662 


023320 

VC J JC V 


122110 




466^ 


023322 

VC J JC c 


00*737 


030260 


4664 


023326 

VC J JC w 


104413 


000021 


4665 


023332 

VC J J JC 


010537 


A V T r A 

023550 


4666 


023336 

VC J J JW 


104413 


A A M A M 4 

000001 


4667 


023342 

VC J J~C 


004537 


031122 


4668 


023346 


000001 




4669 


023350 

WC J J J V 


000000 




4670 


023352 


AAA AAA 

000000 




4671 


023354 


103405 




4672 


023356 


AAJ 

004737 


A9 4 V / i 

031344 


4673 


023362 


4 A V A A4 

103006 




4674 


023364 


104020 




4675 


023366 


AAA i A i 

000404 




4676 

~ w • w 


023370 

WC J J • w 


A A i W Y 

004737 


031 344 


4677 


023374 


103401 




4678 


023376 


104021 




4679 








46A0 


023400 






4681 


023400 

WC wW 


006037 


023350 


4682 


023404 


013737 


031230 


4683 


025412 


AAf A 9 

005203 




4684 


023414 

WC J^ ' ~ 


022703 


000010 


4685 


023420 


001346 




4686 


023422 

WC J^CC 


AA r A A V 

005003 




4687 

~ wW ■ 


023424 

WC ^^c~ 


005204 




4688 


023426 


022704 


A A A i A A 

000400 


4689 


023432 


003404 




4690 


025434 


010461 


A A A A A 1 

000004 


4691 


023440 


1 t\LI 1 "i 




4692 


023442 


122110 




4693 


023444 


005205 




4694 


023446 


022705 


000400 


469 S 


0234'? 


001327 





IS: 
2S: 



3S: 
4S: 



5S: 



6»: 



MOV 


«46,tTSTNH 


MOV 


#TST47,NEXT 


MSTCLR 




MOV 


IBITI 1 , (R1 ) 


CLR 


R3 


CLR 


R4 


CLR 


R5 


CLR 


4t 


MOV 


#CRC16,XP0LV 


JSR 


PC .SYNLO 


MOV 


A i i / A 4 \ 

R4,4(R1 ) 


ROMCLK 




122110 




INC 


A 1 

R4 


MOV 


R4 ,4 \R1) 


ROMCLK 




122110 




INC 


R4 


mv 


R4,4(R1) 


ROMCLK 


122110 




JSR 


PC.OCOR 


DATACLK.21 


MOV 


R5,3S 


0ATACLK.1 


JSR 
1 


R5,SIflBCC 


0 




0 




BCS 


5S 


JSR 


PC.GETQO 


act 


6S 


ERROR 


20 


BR 


6$ 


JSR 


PCGETOO 


BCS 


6t 


ERROR 


21 



9»: 



ROR 

MOV 

INC 

CUP 

BNE 

CLR 

INC 

CMP 

BLE 

MOV 

ROMCLK 

122110 

INC 

CMP 

BNE 



3t 

CALBCC.4t 
R3 

#10, R3 
2S 

R3 

R4 

#400. R4 
9$ 

R4,4(R1 ) 



R5 

1400. R 5 
It 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMCll ADDRESS 

;MASTER CLEAR KMC11 

;SET LINE UNIT LOOP 

;ZERO BIT COUNT 

;R4 CONTAINS CHAR TO BE LOADED IN SILO 

;R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 

: CLEAR SOFT BCC 

:LOAD POLYNOMINAL 

;LOAD SILO WITH 2 SYNCS. SON SET 

:P0RT4 CHAR 

.•NEXT QORD IS INSTRUCTION. ROMCLK PC = 5304 
.LOAD OUT DATA 

INCREMENT TO NEXT CHARACTER 
'P0RT4 CHAR 

•NEXT OORD IS INSTRUCTION. ROMCLK PC=5304 
.•LOAD OUT DATA 

INCREMENT TO NEXT CHARACTER 
:P0RT4 CHAR 

;NEXT OORD IS INSTRUcUON, ROMCLK PC = 5304 
.-LOAD OUT DATA 
:UAIT FOR OCOR 
; CLOCK DATA 

;LOAD CHAI) FOR SOFT CRC 
.•SHIFT BCC ONCE 
.CALCULATE SOFT BCC 
;SOFT SHIFT COUNT 
.-SOFT CHARACTER 
;OLD SOFT BCC 

;BR IF SOFT BCC LSB IS SET 

;6ET HARDWARE TRANSMITTER BCC LSB 
:BR IF OK (CLEARED) 
.ERROR, BCC LSB WAS SET 
.•CONTINUE yiTH TEST 

;GET HARDWARE TRANSMITTER BCC LSB 
:BR IF OK (SET) 
: ERROR. BCC LSB WAS CLEAR 



SHIFT SOFT DATA 
LOAD OLD SOFT BCC 
INCREMENT BIT COUNTER 
DONE A FULL CHARACTER YET? 
BR IF NO 

RESTART BIT COUNTER 
INCREMENT DATA FOR SILO 
DONE BINARY COUNT YET? 
BR IF YES 
P0RT4 DATA 

NEXT OORD IS INSTRUCTION. ROMCLK PC=5504 

LOAD OUT DATA 

INCREMENT DATA 

DONE BINARY PATTERN YET? 

BR IF NO 
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4696 


023454 






4697 








4698 








4699 








4700 








4701 








4702 








4703 








4704 








4705 








4706 








4707 








4708 


023454 


000004 




4709 


023456 


012737 


000047 


4710 


023464 


012737 


023712 


4711 








4712 


023472 


104410 




4713 


023474 


012711 


004000 


4714 


023500 


005003 




4715 


023502 


005004 




4716 


023504 


005005 




4717 


023506 


005037 


023610 


4718 


023512 


012737 


120001 


4719 


023520 


00*737 


031374 


4720 


023524 


010461 


000004 


4721 


023530 


104412 




4722 


023532 


122110 




4723 


023534 


005204 




4724 


023536 


010461 


000004 


4725 


023542 


104412 




4726 


023544 


122110 




4727 


023546 


005204 




4728 


023550 


010461 


000004 


4729 


023554 


104412 




4730 


023556 


122110 




4731 


023560 


004737 


030260 


4732 


023564 


104413 


000032 


4733 


023570 


010537 


023606 


<,734 


023574 


104413 


000001 


4735 


023600 


004537 


031122 


4736 


023604 


000001 




4737 


023606 


000000 




4738 


023610 


000000 




4739 


023612 


103405 




4740 


023614 


004737 


031356 


4741 


023620 


103006 




4742 


023622 


104022 




4743 


023624 


000404 




4744 


023626 


004737 


031356 


4745 


023632 


103401 




4746 


023634 


104023 




4747 








4748 


023636 






4749 


023636 


006037 


023606 


4750 


023642 


013737 


051230 


4751 


023650 


005203 
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BASIC RECEIVER TESTS 



B 8 



SEQ 0092 



7$: 



IS: 
2S: 



3S: 
4$: 



5S: 



6S: 



;*#*•***•*•••*****«•**•••*. t TEST 47 ♦••t»»«****««****»«*«..*.*» 

.••RECEIVER CRC TEST 

.••USING THE CRC16 POLYNOMINAL. SINGLE CLOCK A BINARY 

.•♦COUNT PATTERN, VERlfY THE LSB OF THE RECEIVER BCC ON EACH SHIFT 



TEST 47 



TST47: SCOPE 



NOV 


#47,$TSTNM 


; LOAD THE NO. OF THIS TEST 


nov 


«TST50.NEXT 


; POINT TO THE START Of NEXT TEST. 
R1 CONTAINS BASE KHCll ADDRESS 




HSTCLR 




MASTER CLEAR KMCll 


nov 


#BIT11.(R1) '. 


SET LINE UNIT LOOP 


CLR 


R3 


ZERO BIT COUNT 


CLR 


R4 


R4 CONTAINS CHAR TO BE LOADED IN SILO 


CLR 


R5 


R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 


CLR 


4S 


CLEAR SOFT BCC 


MOV 


#CRC16.XP0LY 


LOAD POLYNOniNAL 


JSR 


PC.SYNLD 


LOAD SILO WITH 2 SYNCS. SON SET 


nov 


R4,4(R1) 


P0RT4 CHAR 


ROnCLK 


NEXT OORD IS INSTRUCTION, ROnCLK PC=5304 


122110 




•LOAD OUT DATA 


INC 


R4 


■INCREMENT TO NEXT CHARACTER 


nov 


R4,4(R1) 


-P0RT4 CHAR 


ROnCLK 


■NEXT aORD IS INSTRUCTION, ROMCLK PC=5304 


122110 




•LOAD OUT DATA 


INC 


R4 


■INCREMENT TO NEXT CHARACTER 


nov 


R4,4(R1> 


P0RT4 CHAR 


ROnCLK 


•NEXT OORD IS INSTRUCTION. ROMCLK PC=5304 


122110 




;LOAD OUT DATA 


JSR 


PC.OCOR 


;yAIT FOR OCOR 


DATACLK,32 


iCLOCK DATA 


NOV 


R5.3» 


;LOAD CHAR FOR SOFT CRC 


DATACLK.1 


;SHIFT BCC ONCE 


JSR 


R5.SinBCC 


; CALCULATE SOFT BCC 


1 


;SOFT SHIFT COUNT 


0 




;SOFT CHARACTER 


0 




;OLD SOFT BCC 


BCS 


5$ 


;BR IF SOFT BCC LSB IS SET 


JSR 


PC.GETOl 


;GET HARDWARE RECEIVER BCC LSB 


BCC 


6S 


:BR IF OK (CLEARED) 


ERROR 


22 


.ERROR. BCC LSB WAS SET 


BR 


6$ 


:CONTINUE WITH TEST 


JSR 


PC.GETOl 


:6ET HARDWARE RECEIVER BCC LSB 


BCS 


6S 


.BR IF OK (SET) 


ERROR 


23 


.ERROR. BCC LSB WAS CLEAR 



ROR 
MOV 
INC 



3$ 

CALBCC,4( 
R3 



SHIFT SOFT DATA 
LOAD OLD SOFT BCC 
INCREMENT BIT COUNTER 
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BASIC RECEIVER TESTS 



C 8 



SEQ 0093 



4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 



023652 
023656 
023660 
023662 
023664 
023670 
023672 
023676 
023700 
023702 
023704 
023710 
023712 



023712 
023714 
023722 



023732 
023736 
0237^2 
023746 
023752 
023756 
023762 
023766 
023770 
023772 
023776 
024002 
024004 
024010 
024012 



022703 


000010 


CMP 


#10. R3 


:D0NE A FULL CHARACTER VET? 


001346 




BNE 


2$ 


:BR IF NO 


005003 




CLR 


R3 


;RESTART BIT COUNTER 


005204 




INC 


R4 


: INCREMENT DATA FOR SILO 


022704 


000400 


fHP 


#400, R4 


;D0NE BINARY COUNT VET? 


003404 


BLE 


9$ 


;BR IF YES 


010461 


000004 


nov 


R4,4(R1) 


;P0RT4 DATA 


104412 


ROMCLK 




;NEXT OORD IS INSTRUCTION, ROHCLK 


122110 




122110 




.-LOAD OUT DATA 


005205 




9S: INC 


R5 


; INCREMENT DATA 


022705 


000400 


CHP 


#400, R5 


;DONE BINARY PATTERN YET? 


001327 




BNE 


IS 


:BR IF NO 



023730 104410 



012711 
012704 
005037 
012700 
004737 
004737 
004537 
032012 
000004 
004737 
004737 
005003 
104413 
112405 
010502 



7$: 



000004 

012737 000050 
012737 024244 



004000 
032012 
024036 
000004 
031374 
030412 
031530 



031504 
030260 

000022 



001202 
001442 



TST50: 



12$: 



024014 012737 120001 031226 
024022 010537 024034 
024026 004537 031122 



TEST 50 ••••••••••••••••••••••••••• 

.••TRANSMITTER DDCHP CRC TEST 

:*THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC 
:*B0TH DATA AND THE BCC ARE VERIFIED IN THE BIT 
.-•WINDOW. THE FOUR CHARACTERS ARE 0J25,252,377 

.••THE TRANSMITTER IS CHECKED FOR GOING TO A MARK STATE AFTER THE BCC 



TEST 50 



SCOPE 

MOV fSO.ITSTNM 
MOV fTSTSI.NEXT 

MSTCLR 

;LOAD OUT DATA SILO 



MOV 
NOV 

CLR 
MOV 

JSR 
JSR 
JSR 

MESDAT 
4 

JSR 
JSR 
CLR 

DATACLK 

MOVB 

NOV 



#BIT11.(R1) 

#n€SDAT.R4 

lOt 

#4.R0 

PC.SYNLD 

PC.OUTRDY 

R5,MESL0 



PC.EOM 
PC.OCOR 
R3 
.22 
(R4)*.R5 
R5.R2 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KNCll ADDRESS 

:NASTER CLEAR KNC11 



.•SET LINE UNIT LOOP 

.'LOAD PCINTER TO DATA 

.•CLEAR SOFT BCC 

:LOAD CHARACTER COUNT 

.•LOAD 2 SYNCS IN OUT SILO 

;WAIT FOR OUTRDY 

.LOAD SILO WITH 4 CHAR HESS 

.'ADDRESS OF MESSAGE 

.NUMBER OF CHARACTERS 

.'LOAD GARBAGE CHARACTER. WITH EOM SET 

:WAIT FOR OCOR 

; CLEAR BIT COUNTER 

.'CLOCK DATA 

.LOAD R5 WITH CHAR 

:LOAD R2 WITH CHAR 



;CHECK FIRST FOUR CHARACTER MESSAGE 
:IN THE BIT WINDOW (0,125.252.377) 



MOV #CRC16,XP0LY 
MOV R5,67S 
JSR R5,SIMBCC 



;LOAD POLYNOMIAL 

.LOAD SOFT CHAR FOR BCC 

; CALCULATE SOFT BCC 



CZltCF 


«ACY11 


50A(10>2J 


08-JU 


CZKCF.Pn 08 
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4806 


024032 


000010 




;809 


024034 


000000 




A810 


024036 


000000 




^811 


024040 


013737 


031250 


4812 


024046 


104413 


000001 


4815 


024052 


106002 




4814 


024054 


103005 




4815 


024056 


004757 


050226 


4816 


024062 


103406 




4817 


024064 


104006 




4818 


024066 


000404 




4819 


024070 


004757 


050226 


4820 


024074 


103001 




4821 


024076 


104006 




4822 


024100 






4823 


024100 


005205 




4824 


024102 


022705 


000010 


4825 


024106 


001557 




4826 


024110 


005005 




4827 


024112 


005500 




4828 


024114 


001335 




4829 








4830 








4831 








4832 


024116 


013700 


051250 


4833 


024122 


104413 


000001 


4834 


024126 


006000 




4635 


0241 30 


103005 




4836 


024132 


004757 


050226 


4837 


024136 


103406 




4836 


024140 


104014 




4839 


024142 


000404 




4840 


024144 


004737 


050226 


4841 


024150 


103001 




4642 


024152 


104014 




4643 


024154 






4844 


024154 


005203 




4845 


024156 


022705 


000020 


^646 


024162 


001557 




4847 


024164 


005005 




4648 








4649 








4650 








4651 


024166 


104415 


000001 


4852 


024172 


■ '.757 


050226 


4653 


024176 


iuJ401 




4854 


024200 


104024 




4655 


024202 


005205 




4656 


024204 


022703 


000007 


4657 


024210 


001366 




4656 


024212 


104415 


000010 


4659 


024216 


005005 




4660 


024220 


104415 


000001 


4661 


024224 


004757 


050226 


4662 


024230 


103401 




4663 


024232 


104024 
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BASIC RECEIVER TESTS 



D 8 



SEQ 0094 



67$: 
10$: 

64$: 



66$; 



68$: 



69$: 
70$: 



2$: 



5$: 



4$: 



10 

0 

0 

nOV CALBCC,10$ 

DATACLK, 1 

RORB R2 

BCC 65$ 

JSR PC.6ETSI 

BCS 66$ 

ERROR 6 

BR 66$ 

JSR PC.GETSI 

BCC 66$ 

ERROR 6 



INC 
CMP 
BNE 
CLR 
DEC 
BNE 



R5 

#10, R3 

64$ 

R5 

RO 

12$ 



:SHIFT COUNT 
.•CHARACTER 
;OLD BCC 

;LOAD SOFT BCC FOR NEXT SHIFT 

.-SHIFT DATA IN TO BIT WINDOW 

.•SHIFT SOFT DATA 

;BR IF A SPACE 

.-LOOK AT BIT WINDOW 

;BR IF OK (MARK) 

.•ERROR, BIT WINDOW WAS A SPACE 

.•CONTINUE 

;LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 

.•ERROR. BIT WINDOW WAS A MARK 

.-BUMP BIT COUNTER 
:DONE FULL 8 BITS YET 
.-BR IF NO 

; CLEAR BIT COUNTER 
.-DEC CHARACTER COUNT 
;BR IF NOT DONE YET 



; CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 



MOV CALBCC.RO 

DATACLK. 1 

ROR RO 

BCC 69$ 

JSR PC.GETSI 

BCS 70$ 

ERROR 14 

BR 70$ 

JSR PC.GETSI 

BCC 70$ 

ERROR 14 



INC 
CMP 
BNE 

CLR 



R5 

#20. R5 

68$ 

R3 



.•PUT BCC IN RO 

: SHIFT HARDWARE BCC 

;SHIFT SOFT BCC 

:BR IF CARRY CLEAR 

;LOOK AT BIT WINDOW 

:BR IF OK (MARK) 

.ERROR, CRC WRONG (SPACE) 

.•CONTINUE 

;LOOK AT BIT WINDOW 

.•BR IF OK (SPACE) 

: ERROR, CRC WRONG (MARK) 

;BUMP BIT COUNTER 
.•FINISHED BCC YET? 
• BR IF NO 

•CLEAR BIT COUNTER 



.•CHECK TO SEE IF TRANSMITTER IS MARKING 



DATACLK. 1 
JSR PC.GETSI 
BCS 3$ 
ERROR 24 
INC R3 
CMP #7.R3 
BNE 2$ 
DATACLK. 10 
CLR R3 
DATACLK, 1 
JSR PC.GETSI 
BCS .♦4 
ERROR 24 



; CLOCK TRANSMITTER 

;LOOK AT WINDOW 

:IT SHOULD BE MARKING 

.ERROR. BIT WAS A SPACE 

;BU«P BIT COUNTER 

.DONE YET 

• BR IF NO 

•GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 

.•CLEAR BIT COUNTER 

.-SHIFT OUT NEXT BIT 

:LOOK AT BIT WINDOW 

.•BR IF IT IS A HARK 

; ERROR. TRANSMITTER IS NOT MARKING 
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BASIC RECEIVER TESTS 



E 8 



SEQ 0095 



4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4875 

4874 

4875 

4876 

4877 

4878 

4879 

48fi0 

4881 

4862 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

491 S 

4916 

4917 

4918 

4919 



024234 
024236 
024242 
024244 



024244 
024246 
024254 

024262 
024264 
024270 
024274 
024300 
024304 
024310 
024314 
024316 
024320 
024324 
024330 
024334 
024340 
024342 
024344 
024350 
024352 
024354 
024356 
024360 
024362 



024364 
024370 
024372 
024374 
024402 
024410 
024414 
024416 
024420 
024424 
024430 



005203 
022703 
001366 



000004 
012737 
012737 

104410 
012711 
012702 
012700 
004737 
004737 
004537 
032012 
000004 
004737 
004737 
104413 
004737 
104412 
021204 
016104 
112205 
120504 
001401 
104010 
005300 
001364 



004737 
104412 
021204 
116137 
042737 
004737 
104412 
021244 
016104 
042704 
012705 



000020 



5»: 



000051 001202 
024446 001442 



004000 
032012 
000004 
031374 
030412 
031530 



031504 
030260 
000114 
031066 



000004 



TST51 



3S: 



1$: 



031066 



000004 001302 
177400 001302 
031066 



INC 
CHP 
BNE 



R3 

#20, R3 
4S 



;INC BIT COUNT 
.'DONE r£T? 
:BR IF NO 



• • TEST 51 • 

.-•RECEIVER DDCNP CRC TEST 

.-•THIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC 
;*AND VERIFYS CORRECT DATA RECEPTION AND BCC HATCH 
:*THE FOUR CHARACTER MESSAGE IS 0,125,252,377 



TEST 51 



SCOPE 

TOV #51,$TSTNH 
«0V #TST52,NEXT 



nSTCLR 

nov 
mv 
nov 

JSR 
JSR 
JSR 

HESDAT 
4 

JSR 
JSR 

DATACLK 
JSR 

ROMCLK 

021204 

MOV 

NOVB 

CHPB 

BEQ 

ERROR 

DEC 

BNE 



#BIT11,(R1> 

fHESDAT,R2 

#4,R0 

PC.SYNLD 

PC.OUTRDY 

R5,nESLD 



PC.EOH 
PC.OCOR 
,114 

PCINRDY 



4(R1),R4 

{R2)»,R5 

R5.R4 

It 

10 

RO 

3S 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMCll ADDRESS 

;«ASTER CLEAR KHC11 

;SET LINE UNIT LOOP 

;LOAD POINTER TO DATA 

.-LOAD CHARACTER COUNT 

:LOAD 2 SYNCS IN OUT SILO 

.-WAIT FOR OUTRDY 

.LOAD SILO WITH 4 CHAR HESS 

;ADDRESS OF MESSAGE 

:Nl^ER OF CHARACTERS 

:LOAD GARBAGE CHARACTER, WITH EOM SET 

:WAIT FOR OCOR 

; CLOCK DATA 

;UAIT FOR INRDY 

;NEXT yORD IS INSTRUCTION. ROMCLK PC=5504 

;GET IN DATA 

;PUT "rOUNO" IN R4 

.PUT 'tXPECTEO" IN R5 

.COMPARE RECEIVED DATA 

:BR IF OK 

.-DATA ERROR 

;DEC CHARACTER COUNT 

:BR If NOT DONE YET 



;CHECK TO SEE THAT IN BCC MATCH IS SET 



000004 
000376 
000001 



JSR 

ROMCLK 

021204 

M0V8 

BIC 

JSR 

ROMCLK 

021244 

MOV 

BIC 

MOV 



PCINROY 



4(R1),$T«P2 
#1 77400. $THP2 
PC , INRDY 



4(R1),R4 
#376, R4 
#1 ,R5 



;WAIT FOR INRDY 

;NEXT yORD IS INSTRUCTION. ROMCLK PC=5504 
;GET FIRST HALF OF CRC 
;PUT IN STMP2 
; CLEAR HI BYTE 
.-WAIT FOR INRDY 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

.-PUT "FOUND" IN R4 
: CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
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BASIC RECEIVER TESTS 



F 8 



SEfl 0096 



4920 


024434 


120504 




4921 


024436 


001401 




4922 


024440 


104015 




4923 


024442 






4924 


024442 


104412 




4925 


024444 


021204 




4926 


024446 






4927 








4928 








4929 








4930 








4931 








4932 








4933 








4934 








4935 








4936 








4937 








4938 








4939 








4940 








4941 








4942 








4943 


024446 


000004 




4944 


024450 


012737 


000052 


4945 


024456 


012737 


025546 


4946 








4947 


024464 


104410 




4948 








4949 








4950 








4951 


02^466 


012711 


004000 


4952 


024472 


012704 


032012 


4953 


024476 


005037 


024606 


4954 


024502 


012700 


000004 


4955 


024506 


004737 


031374 


4956 


024512 


004737 


030412 


4957 


024516 


004537 


031530 


4958 


024522 


032012 




4959 


024524 


000004 




4960 


024526 


004737 


031504 


4961 


024532 


004537 


031530 


4962 


024536 


032012 




4963 


024540 


000004 




4964 


024542 


004737 


031504 


4965 


024546 


004737 


030260 


4966 


024552 


005003 




49o7 


024554 


104413 


000022 


4968 


024560 


112405 




4969 


024562 


010502 




4970 








4971 








4972 








4973 








4974 


024564 


012737 


120001 


4975 


024572 


010537 


024604 



25t: 
2S: 



TST52! 



12»: 



CnPB R5.R4 
BEQ 25i 
ERROR 15 

ROnCLK 
021204 



;IS IN BCC HATCH SET? 
;IN BCC MATCH ERROR 

.-NEXT WORD IS INSTRUCTION, ROMCLK ^€^5304 
;6ET LAST HALF 



t.*****t*t*******t***t*«t** TEST 52 •••• • 

;*DDCMP EOH FUNCTION TEST 

;«THIS TEST LOADS OUT SILO WITH: 2 SYNCS, 4 CHAR MESSAGE, EOH 

;*4 CHARACTER nESS,EOn. THE DATA STREAM IS CHECKED TO BE 

;*4 CHAR, BCC, 4 CHAR, BCC, HARKS. THIS TEST VERIFYS THAT 

;*THE CHARCTERS LOADED WITH EOH SET ARE LOST 

;*ALL DATA AND BCC'S ARE CHECKED IN THE BIT UINDOU 

;*THE FOUR CHARACTER MESSAGE IS 0.125,252,377 

;*RECEIVED DATA IS VERIFIED, AND IN BCC HATCH IS CHECKED 



TEST 52 



SCOPE 

HOV #52,»TSTNH 
HOV #TST53.NEXT 

HSTCLR 

:LOAD OUT DATA SILO 



HOV 
HOV 

CLR 
HOV 

JSR 
JSR 
JSR 

HESDAT 
4 

JSR 
JSR 

HESDAT 
4 

JSR 
JSR 
CLR 

DATACLK 

HOVB 

HOV 



«BIT11,(R1> 
fRESDAT,R4 

lot 

«4,R0 

PC.SYNLD 

PC,OUTRDY 

R5,HESLD 



PC.EOH 
R5.HESLD 



PC.EOH 

PC.OCOR 

R5 

'22 
(R4)SR5 

R5.R2 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KHC11 ADDRESS 

:HASTER CLEAR KHC11 



;SET LINE UNIT LOOP 

.-LOAD POINTER 10 DATA 

; CLEAR SOFT BCC 

:LOAD CHARACTER COUNT 

.LOAD 2 SYNCS IN OUT SILO 

:UAIT FOR OUTRDY 

;LOAD SILO VITH 4 CHAR HESS 

: ADDRESS OF HESSAGE 

.NUMBER OF CHARACTERS 

;LOAD GARBAGE CHARACTER, WITH EDM SET 

;LOAD FOUR HORE CHARACTERS 

; ADDRESS OF HESSAGE 

:NUHBER OF CHACTERS 

;SET EOH 

;UAIT FOR QCOR 

.•CLEAR BIT COUNTER 

.•CLOCK DATA 

;LOAD R5 WITH CHAR 

;LOAD R2 WITH CHAR 



.•CHECK FIRST FOUR CHARACTER HESSAGE 
.•IN THE BIT UINDOU (0.125.252,377) 



MOV #CRC16,XP0LY 
HOV R5.67$ 



;LOAD POLYNOHIAL 

.LOAD SOFT CHAR FOR BCC 
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4976 


024576 


A A / C T 7 

004537 


A»4 i 1*^ 

031122 


4977 


ft ^ i Z A ^ 

024602 


A A A A ^ A 

000010 




4978 


ft 1 > ^ ft / 

024604 


ft ft ft ft ft ft 

000000 




4979 


ft ^ y ^ fti 

024606 


A A A AAA 

000000 




4980 


024610 


A1 ■»7'?7 

01 3737 


031250 


4981 


024616 


104413 


AAAAA4 

000001 


/ no ^ 
4982 


A^y z 

024622 


1 AZ.AAO 

1 06002 




/ no T 

4983 


A^y i "I y 

024624 


1 AtAAC 

103005 




4984 


A'ly 1.^^. 
024626 


AA/ 717 

004 f if 


ATAOOiL. 

030226 


y QQ r 
4VBj 


A^y iiTO 
024632 


1 At/ A/t 

1 03400 




4986 


AO/ ylT/ 
024634 


1 A/ AA/L 

1 04006 




/ OB 7 


AO/ iLTil 

024636 


AAA/.A/. 

000404 




y ooo 

4988 


AO/ 1./ A 

024640 


AAA7T7 

004 r3' 


ATAOO/L 

030226 


y OOQ 

4989 


AOy Ay y 
024644 


1 ATAA1 
103001 




y OAA 

4990 


AO/ L. 

024646 


1 A/ AA/. 

104006 




y ooi 
4991 


AO/ tCA 

024650 






499c 


AO/./LCA 

024650 


AAC3A7 
005203 




•i993 


024052 


A037AT 

02cr03 


AAAA1 A 

000010 


4994 


024050 


AA1 VC? 

00 1 55f 




4993 


AO/ /LAA 

024000 


AACAAT 

005003 




«t9TO 


AO/.*,iLO 

02*1 00c 


AACTrtA 

005300 




••99f 


024004 


AA1 TTC 

001 335 




y ooo 








y OdQ 
4999 








CAon 
5000 








jOOi 


AO / 


A1 T7AA 

01 3' 00 


ATI OTA 
031c30 


500c 


AO/ <»70 

024Of 2 


1 A/./. 1 T 

10441 3 


AAAAA1 

000001 


3005 


AO/ A7^ 

0240f 0 


aaaaaa 
006000 




5004 


AO/. 7f4A 
Oc*i r 00 


1 03005 




30U) 


Oc^r Oe 


OOh I 3f 


ATA33A 


7UU0 


AO/, 7AA 


iOjhOO 




jOOf 


AOt 71 n 

OCH' 10 






5000 


ftO/. 71 3 
0C*« f ic 


AAAAAZ, 
000*»U*» 




5009 


AO/. 71 A 
0c4f 1* 


AA/7T7 
004 f 3f 


ATA33A 

030eco 


5010 


UC*i f CO 


1 ATAA1 




CA1 1 

501 1 


no/. 733 
Oc** ' cc 


1 A£A1^ 
10^0 1* 




CA1 0 

501c 


AO/. 73/. 
024 f C4 






CA1 T 

501 J 


n3/.73/. 
OC*l f c*» 


AAC3AT 
005CU3 




CA1 Z 
3014 


A0/73A. 

024 1 20 


A337AT 


AAAA3A 
OOOOcO 


CA1 C 
501 > 


A3/.713 
0C4 f 3C 


AA1 X^7 
00 1 35 f 




5010 


[)£'*' J*f 


AACAAT 
U05UU3 






AO/.7X/L 
OcHf 30 


A1 37nA 
0 1 C r UU 


AAAAA^ 


50 10 


Uc*i'*»c 


A1 97A£ 
\J\ CI v** 


nT5A1 ? 


5019 


n3/.7AA 
OC«if *0 


AACA'<7 
UU5U jf 


nOCAAA 


CA5A 
50c0 


A3/.7<3 
0C*» f 5C 


1 1 OAAC 
1 1 ch05 




50c 1 


A0/.7C/. 
024 f 34 


A1 ACA3 
010502 




<n95 

50cC 








50it:3 








CAO/. 
50c 4 








^0C5 


AO/. 7C<^ 
024 f 50 


A1 3717 
012'3f 


1 3AAA1 
1 cOUO 1 


51/cO 






0P4 77A 


5027 


024770 


004537 


031122 


5028 


024774 


000010 




5029 


024776 


000000 




5030 


025000 


000000 




5031 


025002 


013737 


031230 



-80 08 



024606 
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BASIC 


RECEIVER 


TESTS 






JSP 


R5 SIMBCC 


"CALCULATE SOFT BCC 




10 


■SHIFT COUNT 


67$: 


0 




• CHARACTER 


10$: 


0 




;OLD BCC 




MOV 


CALBCC,10$ 


■LOAD SOFT BCC FOR NEXT SHIFT 


64$: 


DATACLK. 1 


■SHIFT DATA IN TO BIT WINDOW 




RORB 


R2 


■SHIFT SOFT DATA 




BCC 


65$ 


■BR IF A SPACE 




JSR 


PC.GETSl 


■LOOK AT BIT WINDOW 




BCS 


66$ 


■BR IF OK (MARK) 




ERROR 


6 


■ERROR. BIT WINDOW WAS A SPACE 




BR 


66$ 


■CONTINUE 


65$: 


JSR 


PC.GETSl 


■LOOK AT BIT WINDOW 




BCC 


66$ 


■BR IF OK (SPACE) 




ERROR 


6 


■ERROR. BIT WINDOW WAS A MARK 


66$: 










INC 


R3 


■BUMP BIT COUNTER 




CMP 


#10, R3 


•DONE FULL 8 BITS YET 




BNE 


64$ 


;BR IF NO 




CLR 


R3 


■CLEAR BIT COUNTER 




DEC 


RO 


.-DEC CHARACTER COUNT 




BNE 


12$ 


;BR K NOT DONE YET 



SEQ 0097 



68$: 



69$: 
70$: 



13$: 



031226 



025000 



;CHECK bCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 



76$: 
11$: 



MOV 


CALBCC.RO 


•PUT nrr in ro 


DATACLK. 1 


; SHI FT HARDWARE BCC 


ROR 


RO 


.•SHIFT SOFT BCC 


BCC 


69$ 


;BR IF CARRY CLEAR 


JSR 


PC.GETSl 


:L00K AT BIT WINDOW 


BCS 


70i 


:8R IF OK (MARK) 


ERROR 


14 


: ERROR. CRC WRONG (SPACE) 


BR 


70$ 


.-CONTINUE 


JSR 


PC.GETSl 


:LOOK At BIT WINDOW 


BCC 


70$ 


;BR IF OK (SPACE) 


ERROR 


14 


; ERROR. C^^C WRONG (MARK) 


INC 


R3 


;BU«P BIT COUNTER 


CMP 


#20. R5 


.FINISHED BCC YET? 


BNE 


68$ 


:BR IF NO 


CLR 


R3 


.-CLEAR BIT COUNTER 


NOV 


t4.R0 


.-RESET CHARACTER COUNTER 


MOV 


fMES0AT,R4 


:L0AD message POINTER 


CLR 


11$ 


;CLR SOFT BCC 


MOVB 


(R4)».R5 


;LOAD CHAR IN R5 


MOV 


R5.R2 


:LOAD CHAR IN R2 


.•CHECK 


SECOND MESSAGE 


IN THE BIT WINDOW (0.125.252 


MOV 


#CRC16.KP0LY 


;LOAD POLYNOMIAL 


MOV 


R5.76$ 


;LOAD SOFT CHAR FOR BCC 


JSR 


R5.SIMBCC 


; CALCULATE SOFT BCC 


10 


; SHIFT COUNT 


0 




.CHARACTER 


0 




;OLD BCC 


MOV 


U.BCC.IU 


.-LOAD SOFT BCC FOR Hlt\ SH 



CZtcCf rtAC^M 30AnO>2) 08-JUL 





- jUL-86 


08:24 


5032 


025010 


104413 


000001 


5033 


025014 


106002 




503A 


025016 


103005 




5035 


025020 


004737 


030226 


5036 


025024 


103406 




5037 


025026 


104006 




5038 


025030 


000404 




5039 


025032 


004737 


030226 


5040 


025036 


103001 




5041 


025040 


104006 




5042 


025042 






50*. 3 


025042 


005203 




5044 


025044 


022703 


OOCOlO 


5045 


025050 


001357 




5046 


025052 


005003 




5047 


025054 


005300 




5048 


025056 


001335 




5049 








5050 








5051 








5052 


025060 


013700 


031250 


5053 


025064 


104413 


000001 


5054 


025070 


006000 




5055 


025072 


103005 




5056 


025074 


004737 


030226 


5057 


025100 


103406 




5058 


025102 


104014 




5059 


025104 


000404 


030226 


5060 


025106 


004737 


5061 


025112 


103001 




5062 


025114 


104014 




5063 


0251 16 






5064 


025116 


005203 




5065 


025120 


022703 


000020 


5066 


025124 


001357 




5067 


025126 


005003 




5068 








5069 








5070 








5071 


025130 


104413 


000001 


5072 


025154 


004737 


030226 


5073 


025140 


103401 




5074 


025U2 


104024 




5075 


025U4 


005203 




5076 


025146 


022703 


000007 


5077 


025152 


001366 




5078 


025154 


104413 


000010 


50^9 


025160 


005003 




5080 


025162 


104413 


000001 


5081 


025166 


004737 


030226 


5082 


025172 


103401 




5083 


025174 


104024 




5084 


025176 


005203 




5085 


025200 


022703 


030020 


5086 


025204 


001366 




5087 









^GE 99 

RECEIVER TESTS 



H 8 



SEQ 0098 



OATACLK. 
RORB 
BCC 
JSR 
BCS 
ERROR 
BR 
JSR 
BCC 
ERROR 

INC 
CNP 
BNE 
CLR 
DEC 
BNE 



1 



R2 
74* 

PC.GETSl 
75i 
6 

75t 

PC.GE'SI 
75i 
6 

R3 

#10. R3 
73$ 
R3 
RO 
13$ 



;SH1FT DATA IN TO BIT WINDOW 

;SHIFT SOFT DATA 

;BR IF A SPACE 

.•LOOK AT BIT WINDOW 

;BR IF OK (MARK) 

; ERROR, BIT WINDOW WAS A SPACE 

; CONTINUE 

;LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 

.•ERROR. BIT WINDOW WAS A MARK 

:BUMP BIT COUNTER 
;DONE FULL 8 BITS YET 
;BR IF NO 

.•CLEAR BIT COUNTER 
;DEC CHARACTER COUNT 
:BR IF NOT DONE YET 



: CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 



MOV 


CALBCC.RO 


;PUT BCC IN RO 


DATACLK.1 


.•SHIFT HARDWARE BCC 


ROR 


RO 


;SHIFT SOFT BCC 


BCC 


78$ 


:BR IF CARRY CLEAR 


JSR 


PC.GP^SI 


.LOOK AT BIT WINDOW 


BCS 


79$ 


;BR IF OK (MARK) 


ERROR 


14 


: ERROR. CRC WRONG (SPACE) 


BA 


79$ 


.•CONTINUE 


JSR 


PC.GETSl 


.•LOOK AT BIT WINDOW 


BCC 


79$ 


:BR IF OK (SPACE) 


ERROR 


14 


; ERROR. CRC WRONG (NARK) 


INC 


R3 


;BUHP BIT COUNTER 


CMP 


#20. R3 


;FINISHEO BCC tET? 


BNE 


77$ 


* BR IF NO 


CLR 


R3 


•CLEAR BIT COUNTER 



.'CHECK TO SEE IF TRANSMITTER IS NARKING 



OATACLK. 
JSR 
BCS 
ERROR 
INC 
CMP 
BNE 
DATACLK. 
CLR R3 
DATACLK, 
JSR 
BCS 
ERROR 
INC 
CMP 
BNE 



PC.GETSl 
3$ 
24 
R3 

#7.R5 
2$ 



1 



PC.GETSl 
.♦4 
24 
R3 

#20. R3 
4$ 



10 
1 



.•CLOCK TRANSMITTER 

:LOOK AT WINDOW 

:1T SHOULD BE NARKING 

: ERROR. BIT WAS A SPACE 

:BUNP BIT COUNTER 

.'DONE YET 

• BR IF NO 

•GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 

;CLEAR BIT COUNTER 

;SHIFT OUT NEXT BIT 

;LOOK AT BIT WINDOW 

;BR IF IT IS A NARK 

;ERROR. TRANSNITTER IS NOT NARKING 

;INC BIT COUNT 

.•DONE YET? 

.BR IF NO 



C2KCF 


MACYll 


30A(1052] 


08-JL 


CZKCF.P11 08 


-JUL-80 08:24 


50M 








5089 








SOW 








5091 


025206 


104413 


000001 


5092 


025212 


012703 


000004 


5095 


025216 


012702 


032012 


509A 


025222 


004737 


031066 


5095 


025226 


104412 




5096 


025230 


021204 




5097 


025232 


016104 


000004 


5098 


025236 


112205 




5099 


025240 


120504 




5T00 


025242 


00l40l 




5101 


025244 


104010 




5102 


025246 


005303 




5103 


025250 


001 364 




5104 








5105 








5106 








5107 








5108 


025252 


004737 


031066 


5109 


025256 


104412 




5110 


025260 


021204 




5111 


025262 


116137 


000004 


5112 


025270 


042737 


1 77400 


5113 


025276 


004737 


031066 


51U 


025302 


104412 




5115 


025304 


021244 




5116 


025306 


016104 


000004 


5117 


025312 


042704 


A AAV V^ 

000376 


5118 


025316 


012705 


A Jk A A A 4 

000001 


5119 


025322 


120504 




5120 


025324 


001401 




5121 


025326 


104015 




5122 


025330 






5123 


025330 


104412 




5124 


025332 


021204 




5125 


025334 


116137 


A A AAA/ 

000004 


5126 


025342 


042737 


A AAT W 

000377 


5127 


025350 


055737 


AA4 VAA 

001 300 


5128 


025356 


023737 


AT 4 '>VA 

031230 


5129 


025364 


OOUOl 




5130 


025366 


104027 




5131 








5132 








5133 








5134 








5135 


025370 


012703 


A A A A A < 

000004 


5136 


025374 


012702 


A V 1 A 4 '^ 

032012 


5137 


025400 


004737 


A V 4 A « 1 

031066 


5 i5o 


0£540<i 






5139 


025406 


021204 




5U0 


025410 


016104 


000004 


5U1 


025414 


112205 




5U2 


025416 


120504 




5U3 


025420 


001401 





>B0 08:27 PAGE 100 

BASIC RECEIVER TESTS 



I 8 



SEO 0099 



401: 



41S: 



001302 
001302 



50$: 



001301 
001300 
001302 
001302 



42$: 
43$: 



.•CHECK TO SEE THAT f IRST FOUR CHARACTER MESSAGE 
;WAS RECEIVED CORRECTLY (0.125.252,377) 

DATACLK. 1 ;GET LAST BIT IN RECEIVER 

MOV «4,R3 :R3sCHARACTER COUNT 

MOV IMESDAT.R2 .'LOAD MESSAGE POINTER IN R2 

JSR PC.INROY ;WAIT FOR INRDY 

ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 

MOV 4(«1),P4 .-PUT "FOUND" IN R4 

MOVB (R2)*.R5 .-PUT "EXPECTED" IN R5 

CMPB R5.R4 ;IS RECEIVED DATA CORRECT? 

BEQ 41$ ;BR IF YES 

ERROR 10 :RECEIVE DATA ERROR 

DEC R3 :DEC CHARACTER COUNT 

BNE 40$ ;BR IF NOT DONE YET 

.CHECK TO SEE THAT IN BCC MATCH IS SET 

.-AND THAT THE BCC WAS RECEIVED CORRECTLY 



JSR 

ROMCLK 

021204 

MOVB 

BIC 

JSR 

ROMCLK 

021244 

MOV 

BIC 

MOV 

CMPB 

BEQ 

ERROR 

ROMCLK 

021204 

MOVB 

BIC 

BIS 

CMP 

BEO 

ERROR 



PC, INRDY 



4(R1).$TMP2 
#1 77400, $TMP2 
PC, INRDY 



4(R1),R4 
#376,R4 
#1.R5 
R5,R4 

5oi 

15 



4{R1).$TMPU1 

#377.$TMP1 

$TMP1.$TMP2 

CAL8CC.$TMP2 

42$ 

27 



;UAIT FOR INRDY 

.•NEXT WORD IS INSTRUcMON, ROMCLK PC=5304 
;6ET FIRST HALF OF CRC 
;PUT IN $TMP2 
; CLEAR HI BYTE 
;UAIT FOR INRDY 

.-NEXT WORD IS INSTRUCTION, ROMCLK PC 5304 

;PUT "FOUND" IN R4 
; CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
:IS IN BCC MATCH SET? 

: IN BCC NATCH ERROR 

.NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;6ET LAST HALF 

;PUT IN $TMP1 

;CLEAR LO BYTE 

:16 BIT BCC NOW IN $TMP2 

;IS IT CORRECT? 

:BR IF OK 



; CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 

;yAS RECEIVED CORRECTLY (0.125.252,377) 

MOV #4.R3 ;R3=CHARACTER COUNT 

MOV #MESDAT.R2 ;10AD MESSAGE POINTER IN R2 

JSR PC.INROY ;WAIT FOR INRDY 

ROMCLK .NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 
021204 

MOV 4(R1).R4 .PUT "FOUND' • IN R4 

MOVB (R2)*,R5 ;PUT 'tXPECTED" IN R5 

fMPB R5,R4 ;IS RECEIVED DATA CORRECT? 

BEQ 44i :BR !F YES 



CZKCF 


MACtll 


CZKCF.P11 08 


5U4 


025422 


5U5 


" 025424 


5U6 


025426 


5U7 




SUB 




5U9 




5150 




5151 


025430 


5152 


025434 


5153 


025436 


5154 


025440 


5155 


025446 


5156 


025454 


5157 


025460 


5158 


025462 


5159 


025464 


5160 


025470 


5161 


025474 


5162 


025500 


5163 


025502 


5164 


025504 


5165 


025506 


5166 


025506 


5167 


025510 


5168 


025512 


5169 


025520 


5170 


025526 


5171 


025534 


5172 


025542 


5173 


025544 


,5174 


025546 


5175 


, * 


5176 


? 


5177 


f 


5178 


r 


5179 




5180 


t 


5181 




5182 




5183 




5184 




5185 




5186 




5187 




5188 




5189 




5190 




5191 




5192 


025546 


5195 


025550 


CIA/ 

5194 


025556 


5195 




5196 


025564 


5197 




5198 




5199 





08-JUL-80 08:27 PAGE 101 
:24 BASIC RECEIVER TESTS 



J 8 



SEQ 0100 



004737 
104412 
021204 
116137 
042737 
004737 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
104015 

104412 
021204 
116137 
042737 
053737 
023737 
001401 
104027 



44$: 



031066 



000004 001302 
177400 001302 
031066 



000004 
000376 
000001 



51$: 



000004 001301 
000377 ; 001300 
001300 .001302 - 
031230 001302' 



5$: 



ERROR 10 
DEC R3 
BNE 43$ 



;RECEIVE DATA ERROR 
;DEC CHARACTER COUNT 
;BR IF NOT DONE YET 



.•CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC UAS RECEIVED CORRECTLY 



JSR 

ROMCLK 

021204 

HOVB 

BIC 

JSR 

ROMCLK 
.021244 
NOV - 
BIC 
NOV 
CMPB 
BEQ 
ERROR 

ROMCLK 
021204 

.HOVB 
BIC > 
BIS 
CHP •> 
BEQ - 

. ERROR 



PC.INRDY 



4(R1).$TMP2 

#177400,$THP2 

PC.INRDY 



4(R1),R4 

f376.R4 

fl.RS 

R5,R4 

51$ 

15 



4(R1).$THPU1 
.#377.$TMP1 
,$TMPl.$TnP2 
CALBCC,$TnP2 
5S 
27 



;UAIT FOR INRDY 

.-NEXT UORD IS INSTRUCTION, ROMCLK PC=5304 
;GET FIRST HALF OF CRC 
;PUT IN $TMP2 
.•CLEAR HI BYTE 
;UAIT FOR INRDY 

.•NEXT UORD IS INSTRUCTION. ROMCLK PC=5304 

;PUT "FOUND" IN R4 
.•CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
;IS IN BCC MATCH SET? 

;1N BCC HATCH ERROR 

.•NEXT UORD IS INSTRUCTION. ROMCLK PC=5304 

;GET LAST HALF. 

;PUT IN $TMP1 

; CLEAR LO BYTE 

:16 BIT BCC NOU IN STMP2 

:IS IT CORRECT? 

;8R.IF>0K' 



•••*«tft««««*««*ir*****t«t6t* TEST S3 

•DDCHPEOH, FUNCTION 4EST-w:> - ^ 

•THIS lEST LOADS. OUT SILO UITH:.2 SYNCS.4nCHAR HESSAGE.EOH 
*S0«.4 CHAR. HESS.EOH, THE DATA STREAM IS CHECKED TO BE 
•4 CHAR.BCCA CHAR.BCC.MARKS. THIS JEST VERIFYS THAT 
*THE CHARCTERS. LOADED UiTH EOH SET ARE LOST 
*ALSO THAT. THE t CHAR, LOADED UITH SON IS NOT IN THE BCC 
•ALL DATA, AND BCC'SIARE CHECKED IN THE BIT UINDOU, - 
•THE F0UR:CHARACTER MESSAGE JS'0.125;252,377 , r' 
•REC£1VED:0ATAUS verified; and in BCC KATCH IS CHECKED. 



4 f^^ 

TESTisV 



000053 . 001202 
026746 001442 



TSTSSj^fSCOPEj. . 

.MOV : r"#53,$TSTNn 



'MOV ::riv fTSi54;NEXT 
HSTCLR, ; 
.•LOAD OUT DATA SlLO 



- ' : ; LOAD THE NO. OF THIS TEST 

. ; POINT TO THE START OF NEXT TEST, 
;R1 CONTAINS BASE KMCll ADDRESS 
jHASTER CLEAR KHCtl. . 



CZltCF 


MAC Y 11 


50A(1052) 08- Jl 


CZKCf.pn 08 


aim ^tif\ 


vo • c** 


5200 


025566 






5201 


025572 


01 570/. 


05501 7 


S202 


025576 




ft5S71 5 
Uc5 f 1 c 


5203 


025602 


\J f CI uu 


vUV/UvH 


520A 


025606 


UVH f Jf 


051 574 

\J J \ J 1 H 


5205 


025612 


UUh f Jf 


05041 5 


5206 


025616 




051 S50 
\jj \ jjyj 


5207 


025622 


AT?01P 




5208 


025624 






5209 


025626 


0(\L7%7 


051 S04 

\J J 1 JyJH 


5210 


025632 


nni7^7 

VwH f Jf 


0514^4 


5211 


025636 


004537 


031530 


5212 


025642 


\JJC\J 1 c 




5213 


025644 


00000& 




5214 


025646 


004757 


031504 


5215 


025652 


OOA737 

VW"V 1 Jf 


050?60 

W vWCwW 


5216 


025656 


005005 




5217 


025660 


104415 


0000?? 


5218 


025664 


11P405 




5219 


025666 


01050? 




5220 








5221 








5222 








5223 








522A 


025670 


\J \ C f Jf 


1 50001 

• C WW 1 


5225 


025676 


010557 

w IV J Jf 


025710 

wC J 1 I w 


5226 


025702 


004 537 

wW*t JJf 


031 122 

1 ICC 


5227 


025706 


000010 

wv' W 1 w 




5228 


025710 


000000 




5229 


025712 


000000 

wwwwww 




5230 


025714 


013737 


031230 

W >J * ft> ^w 


5231 


025722 


104413 

1 W^^ 1 J 


000001 

wwww V 


5232 


025726 


1 06002 




5233 


025730 


105005 




523A 


025732 


004737 


030226 


5235 


025736 


103406 

1 W J~ vw 




5236 


025740 


1 04006 
1 W"t WW 




5237 


025742 


000404 

WWW" w~ 




5238 


025744 


004737 

WW~ 1 J 1 


030226 

V ^ w W W W 


5239 


025750 


103001 

1 W^WW ' 




5240 


025752 


104006 

1 w^ www 




5241 


025754 






5242 


025754 


005203 

WW J^y0 J 




5243 


025756 


022703 

Wfc b ( w>^ 


000010 

WWWW ' W 


5244 


025762 


001357 




5245 


025764 


005003 

WW J 




5246 


025766 


005300 

WW^ JWW 




5247 


025770 


001335 

WW I J J J 




5248 








5249 








5250 








5251 


025772 


013700 


031230 


5252 


025776 


104413 


000001 


5253 


026002 


006000 




5254 


026004 


103005 




5255 


026006 


004737 


030226 



08:27 PAGE 'u^ 

BASIC RECEIVER TESTS 



K 8 



SEO 0101 



12*: 



67 J i 
10$: 

64S: 



65$: 



66$: 



68$: 



NOV 

nov 

CLR 
MOV 

JSR 
JSR 
JSR 

NESDAT 
4 

JSR 
JSR 
JSR 

«ESDAT 
4 

JSR 
JSR 
CLR 

DATACLK 

MOVB 

MOV 



ffBITll ,(R1) 
#nESDAT.R4 
10$ 
#4.R0 

PC.SYNLD 

PCOUTROY 

R5,nESLD 



PC.EOH 
PC.SON 
R5,nESLD 



PC.EOM 
PC.OCOR 
R3 
.22 
(R4)*.R5 
R5.R2 



SET LINE UNIT LOOP 

LOAD POINTER TO DATA 

CLEAR SOFT BCC 

LOAD CHARACTER COUNT 

LOAD 2 SVNCS IN OUT SILO 

WAIT FOR OUTRDY 

LOAD SILO yiTH 4 CHAR HESS 

ADDRESS OF MESSAGE 

NUMBER OF CHARACTERS 

LOAD GARBAGE CHARACTER, WITH EOM SET 

LOAD GARBAGE CHAR yiTH SOM SET 

LOAD FOUR MORE CHARACTERS 

ADDRESS OF MESSAGE 

NUMBER OF CHACTERS 

SET EOM 

WAIT FOR OCOR 

CLEAR BIT COUNTER 

CLOCK DATA 

LOAD R5 yiTH CHAR 

LOAD R2 yiTH CHAR 



.-CHECK FIRST FOUR CHARACTER MESSAGE 
;IN THE BIT WINDOU (0.125,252.377) 



fCRCl6.XP0LY 
R5.67$ 
R5,SIMBCC 



MOV 
MOV 
JSR 
10 
0 
0 

MOV CALBCC.10$ 

DATACLK. 1 

RORB R2 

BCC 65$ 

JSR PC.6ETSI 

BCS 66$ 

ERROR 6 

BR 66$ 

JSR PC.6ETS1 

BCC 66$ 

ERROR 6 



BCC 



INC 
CMP 
BNE 
CLR 
DEC 
BNE 



R3 

#10. R3 

64$ 

R3 

RO 

12$ 



LOAD POLYNOMIAL 
LOAD SOFT CHAR FOR 
CALCULATE SOFT BCC 
SHIFT COUNT 
CHARACTER 
OLD BCC 

LOAD SOFT BCC FOR NEXT SHIFT 

SHIFT DATA IN TO BIT UINDOU 

SHIFT SOFT DATA 

BR IF A SPACE 

LOOK AT BIT yiNDOU 

BR IF OK (MARK) 

ERROR. BIT yiNDOy UAS A SPACE 

CONTINUE 

LOOK AT BIT UINDOU 

BR IF OK (SPACE) 

ERROR. BIT yiNDOU WAS A MARK 

BUMP BIT COUNTER 
DONE FULL 8 BITS YET 
BR IF NO 

CLEAR BIT COUNTER 
DEC CHARACTER COUNT 
BR IF NOT DONE YET 



.•CHECK BCC FOR PRECEDING MESSAGE IN THE BIT UINDOU 



MOV CALBCC.RO 

DATACLK. 1 

ROR RO 

BCC 69$ 

JSR PC.GETSI 



PUT BCC IN RO 
SHIFT HARDUARE BCC 
SHIFT SOFT BCC 
BR IF CARRY CLEAR 
LOOK AT BIT yiNDOy 



CZKCf MACV11 30A(1052) 08-JUL-80 



CZKCf.PII 08" 


_ 1 1 II ft A 




5256 


026012 






5257 


0260U 


1 c\L^\^L 




5258 


026016 


f\{\l\Lf\L 




5259 


026020 


UUh I jf 




5260 


026024 






5261 


026026 


1 U*iU 1 <• 




5262 


026050 






5265 


026050 






5264 


026052 




nooopfl 

UwUwCv 


5265 


026056 


VW f JJf 




5266 


0260A0 






5267 








5268 








5269 








5270 


026042 






5271 


026044 


U 1 \Jj\JC 




5272 


026046 




Uwvwv 1 


5275 


026052 


> V/OVvC 




527A 


026054 


1 A^ons 

1 XJjvvJ 




5275 


026056 






5276 


026062 






5277 


026064 


1 n^oo^ 




5278 


026066 


UVV"»W» 




5279 


026070 


nn<.7X7 

VV"»f Jl 


0X0P2A 

U JVC CO 


5280 


026074 






5281 


026076 


1 U*« www 




5282 


026100 






5285 


026102 




Uwww 1 w 


528A 


026106 


rtfll TS7 

WW \ J J f 




5285 


026110 


oosoo^ 

\Jv Jvv J 




5286 


026112 


01?700 


000004 


5287 


026116 


012704 


03201 2 


5288 


026122 




0261 54 


5289 


026126 


112405 




5290 


026150 


V 1 vJ\JC 




5291 








5292 








5295 








529A 


026152 


w • c ' Jf 


120001 

1 C V W 1 


5295 


026140 


V 1 V > J ■ 


VCw ■ 


5296 


026144 




031122 

f ICC 


5297 


0261 SO 






5298 


026152 


www 




5299 


026154 


000000 

VWwwv 




5500 


026156 




051230 


5301 


026164 




000001 

wVWWW 1 


5302 


026170 


10^00? 




5303 


026172 


lO'KOOS 




5504 


026174 


00^7^7 

V V"* f J f 


050226 

V JVC C w 


5305 


026200 


lO^LO^ 

\ \J ^"f w 




5506 


026202 


104001^ 

1 V"» WW 




5507 


026204 


000404 




5508 


026206 


004757 


050226 


5509 


026212 


105001 




5510 


026214 


104006 




5511 


026216 
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BASIC RECEIVER TESTS 



L 8 



SEO 0102 



69$: 
70S: 



52$: 



50$: 
51$: 



15$: 



051226 



026154 



76$: 
11$: 

75$: 



74$! 



75$: 



BCS 

ERROR 

BR 

JSR 

BCC 

ERROR 

INC 
CMP 
BNE 

CLR 



70$ 

14 
70$ 

PC.GETSI 

70i 

14 

R5 

#20, R5 
68$ 



;BR IF OK (MARK) 

;ERROR, CRC WRONG (SPACE) 

.•CONTINUE 

.-LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 

; ERROR, CRC WRONG (HARK) 

;BUMP BIT COUNTER 
.-FINISHED BCC YET? 
;BR IF NO 

;CLEAR BIT COUNTER 



:CHECK CHARACTER LOADED WITH SOM (000), IN THE BIT WINDOW 



CLR 
MOV 

DATACLK 

R0R6 

BCC 

JSR 

BCS 

ERROR 

BR 

JSR 

BCC 

ERROR 

INC 

CMP 

BNE 

CLR 

MOV 

MOV 

CLR 

HOVB 

MOV 



R5 

R5.R2 



1 



R2 
50$ 

PC.GETSI 

51 i 

6 

51$ 

PC.GETSI 

51$ 

6 

R5 

f10,R3 

32$ 

R5 

«4,R0 

fMESDAT,R4 

11$ 

(R4)*,R5 
R5,R2 



: CHARACTER LOADED WITH SOM 

:LOAD R2 WITH CHAR 

; CLOCK TRANSMITTER 

.SHIFT SOFT DATA 

:BR IF SPACE 

:LOOK AT BIT WINDOW 

:BR IF OK (MARK) 

; ERROR .BIT WINDOW WAb A SPACE 

; CONTINUE 

.LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 

: ERROR, BIT WINDOW WAS A HARK 

:BUHP BIT COUNTER 

:DONE CHARACTER YET? 

:BR IF NO 

.RESET BIT COUNTER 
.•RESET CHARACTER COUNTER 
.LOAD MESSAGE POINTER 
;CLR SOFT BCC 
.LOAD CHAR IN R5 
;LOAD CHAR IN R2 



.CHECK SECOND MESSAGE IN THE BIT WINDOW (0.125,252.577) 



#CRC16.XP0LY 
R5.76$ 
RS.SIMBCC 



MOV 
MOV 
JSR 
10 
0 
0 

MOV CALBCC.1U 

DATACLK, 1 

RORB R2 

BCC 74$ 

JSR PC.GETSI 

BCS 75i 

ERROR 6 

BR 75$ 

JSR PC.GETSI 

BCC 75i 

ERROR 6 



.-LOAD POLYNOMIAL 

;LOAD SOFT CHAR FOR BCC 

; CALCULATE SOFT BCC 

; SHI FT COUNT 

.CHARACTER 

.OLD BCC 

.-LOAD SOFT BCC FOR NEXT SHIFT 

.SHIFT DATA IN TO BIT WINDOW 

: SHIFT SOFT DATA 

:BR IF A SPACE 

;LOOK AT BIT WINDOW 

;BR IF OK (MARK) 

.ERROR, BIT WINDOW WAS A SPACE 

.-CONTINUE 

.•LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 

: ERROR, BIT WINDOW WAS A MARK 



czi;cf 


HACYll 


30A(1032) 08-JU 


cZKCF.pn 08 


-JUL-80 


08:24 




0262 10 


005203 




C 1 i 7 

5513 


02oc20 


022703 


000010 


531 »» 


02o22h 


001357 




551 5 


026226 


005003 




5310 


026230 


005300 




55 1 f 


026252 


001335 




5 510 








551 V 








55cU 








55c 1 


n3A3Z/. 


013700 


031230 




n3A3/.n 


104413 


000001 


55c5 


Uc0c«»*» 


006000 




5 5cH 


n3A3A/^ 


103005 




55^5 


UcOc3U 


004737 


030226 


55cO 


UcOc3*t 


103406 




JJCf 


n3/^3^A 

Uc0c30 


104014 




55c6 


n3A3/kn 


000404 




5 JCT 


UcOcOc 


004737 


030226 




n3A3AA 
UcOcOO 


103001 




53 J 1 


n3A37n 


104014 




5332 


026272 






5333 


026272 


005203 




535h 


U202f 


Ucc f U3 


nnnn3n 


5535 


A3AXOn 


001357 




3330 


Uc03vc 


005003 




333f 








5330 








533t 
33'iU 


n3ATA/^ 


104413 


000001 


33"» 1 


Uc03 1 U 


004737 


030226 


33*»c 


n3AXi/> 


103401 




>3*»3 


vc03 10 


104024 






n3AX7n 


005203 




3 


ft3AX33 


022703 


000007 




n3AX3A 


001366 




33*»t 


ft3AT7n 


104413 


000010 


33*»0 


l/c033<* 


005003 




3 J*»T 


n3AXXA 
\JCOJjO 


104413 


000001 




U&03tC 


004737 


030226 


jjj 1 




103401 




CX^7 


MCvJJV 


104024 




3 J} J 


UC033C 


005203 




JJJ'* 


n3AX^/i 


022703 


000020 


3333 


UC030U 


001366 




3330 








SXS7 

333f 








3330 








333T 








3 30v 


vc030c 


104413 


000001 


5361 


026366 


012703 


000004 


5362 


026372 


012702 


032012 


5363 


026376 


004737 


031066 


5364 


026A02 


104412 




5365 


026404 


021204 




5366 


026406 


016104 


000004 


5367 


026412 


112205 





KGE 104 

RECEIVER TESTS 



n 8 



SEQ 0105 



INC 
CMP 
BNE 
CLR 
OEf 
BNE 



R3 

#10. R3 

73$ 

R3 

RO 

13$ 



;BUMP BIT COUNTER 
.•DONE fULL 8 BITS YET 
'BR IF NO 

■CLEAR BIT COUNTER 
.-DEC CHARACTER COUNT 
;BR IF NOT DONE YET 



.-CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 



MOV CALBCC.RO 
DATAC^K.1 



ROR 
BCC 
JSR 
BCS 
ERROR 
BR 
JSR 
BCC 
ERROR 

INC 
CMP 
BNE 

CLR 



RO 
78$ 

PC.GETSI 
79i 
14 
79$ 

PCGETSI 

79$ 

14 

R3 

«20.R3 
77$ 

R3 



;PUT BCC IN RO 

.-SHIFT HARDWARE BCC 

;SHIFT SOFT BCC 

;BR IF CARRY CLEAR 

.LOOK AT BIT WINDOW 

;BR IF OK (MARK) 

; ERROR, CRC WRONG (SPACE) 

.•CONTINUE 

;LOOK AT BIT WINDOW 
;BR IF OK (SPACE) 
.•ERROR. CRC WRONG (MARK) 

;BUMP BIT COUNTER 
^FINISHED BCC YET? 
;BR IF NO 

; CLEAR BIT COUNTER 



;CHECK TO SEE IF TRANSMITTER IS HARKING 



DATACLK. 
JSR 
BCS 
ERROR 
INC 
CUP 
BNE 
DATACLK. 
CLR R3 
DATACLK. 



PC.GETSI 
3t 
24 
R3 

f7,R3 
2$ 



1 



10 
1 



JSR 
BCS 
ERROR 
INC 
CUP 
BNE 



PC.GETSI 
.♦4 
24 
R3 

«20.R3 
4f 



.•CLOCK TRANSMITTER 

.LOOK AT WINDOW 

:IT SHOULD BE MARKING 

.'ERROR. BIT WAS A SPACE 

:6UHP BIT COUNTER 

;DONE YET 

:BR IF NO 

;6IVE ENOUGH TICKS TO CLEAR OUT ACTIVE 

.-CLFAR BIT COUNTER 

; SHIFT OUT NEXT BIT 

.•LOOK AT BIT WINDOW 

:BR IF IT IS A MARK 

.ERROR. TRANSMITTER IS NOT MARKING 

:1NC BIT COUNT 

;OONE YET? 

:BR IF NO 



; CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 
.WAS RECEIVED CORRECTLY (0.125.252.377) 



DATACLK, 
MOV 
MOV 
JSR 

ROMCLK 
021204 
MOV 
HOVB 



1 

«4,R3 

ffMESDAT.R2 

PC.INROY 



4(R1).R4 
(R2)*.R5 



;6ET LAST BIT IN RECEIVER 
;R3=CHARACTER COUNT 
.•LOAD MESSAGE POINTER IN R2 
;WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

;PUT "FOUND" IN R4 
;PUT 'tXPECTEO" IN R5 



CZKCF 


MACY11 


30A(1052) 08-JU 


CZKCf.PII 08 


-JUL-80 


08:24 


S368 


026414 


120504 




5369 


026416 


00U01 




5370 


026420 


104010 




5371 


026422 


005303 




5372 


026424 


001 364 




5373 








5374 








5375 








5376 








5377 


026426 


004737 


031066 


5378 


026432 


104412 




5379 


026434 


021704 




5380 


026436 


116137 


000004 


5381 


026444 


042737 


1 77400 


5382 


026452 


004737 


031066 


5383 


026456 


104412 




5384 


026460 


021244 




5385 


026462 


016104 


000004 


5386 


026466 


042704 


000376 


5387 


026472 


012705 


000001 


5388 


026476 


120504 




5389 


026500 


001401 




5390 


026502 


104015 




5391 


026504 






5392 


026504 


104412 




5393 


f\^A f A^ 

026506 


021204 




5394 


A^X C 4 A 

026510 


116137 


000004 


5395 


026516 


042737 


000377 


5396 


026524 


053737 


001 300 


5397 


A^ ^ C T ^ 

026532 


A'^ T 7 

023737 


A T i 1 1 A 

031230 


5398 


026540 


001401 




5399 


A^ X c y ^ 

026542 


104027 




C t AA 

5400 








5401 








5402 
5403 


A ^x r / i 

026544 


004737 


031066 


5404 


C CA 

026550 


104412 




5405 


026552 


021204 




f « Ax 

5406 


026554 


016104 


000004 


5407 


026760 


0OS005 




f i AM 

5408 


A^X f X ^ 

026562 


1 20504 




f / AA 

5409 


026564 


001401 




5410 


A ^ y. C ^ X 

026566 


104010 




541 1 








5412 








5413 








5414 








r ^ 4 c 

541 5 


AO^ C 7A 

026570 


012703 


000004 


5416 


f\^A f 7i 

026574 


012702 


032012 




UcOoUU 


004737 


031066 


5418 


026604 


104412 




5419 


026606 


021204 




5«.20 


026610 


016104 


000004 


5421 


026614 


112205 




5422 


026616 


120504 




5423 


026620 


O0U01 
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BASIC RECEIVER TESTS 



N 8 



SEO 0104 



41S: 



50$: 



45S: 



42S: 
43$: 



CHPB 

BEQ 

ERROR 

DEC 

BNE 



R5,R4 

4li 

10 

R3 

40S 



;IS RECEIVED DATA CORRECT? 
;BR IF YES 
.■RECEIVE DATA ERROR 
:DEC CHARACTER COUNT 
;BR IF NOT DONE YET 



.•CHECK TO SEE THAT IN BCC HATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 



JSR 

ROMCLK 
021204 
novB 

BIC 
JSR 

ROMCLK 
021244 

nov 

BIC 

nov 

CHPB 

BEQ 

ERROR 

ROHCLK 
021204 

novB 

BIC 
BIS 
CUP 
BEQ 
ERROR 



PCINRDY 



4(R1).$THP2 
#1 77400. $TMP2 
PC.INROY 



4(R1),R4 

i376.R4 

#1 .R5 

R5,R4 

50$ 

15 



4(R1),tTHPU1 

#377.iTHP1 

»THP1 .$THP2 

CALBCC.tTHP2 

45$ 

27 



;yAIT FOR INRDY 

.•NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 
;GET FIRST HALF OF CRC 
;PUT IN $THP2 
;CLEAR HI BYTE 
:UAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

;PUT "FOUND" IN R4 
.-CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
;IS IN BCC HATCH SET? 

:IN BCC HATCH ERROR 

;NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

;6ET LAST HALF 

;PUT IN $THP1 

.'CLEAR LO BYTE 

:16 BIT BCC NOW IN $THP2 

;IS IT CORRECT? 

:BR IF OK 



;CHECK THAT CHARACTER LOADED WITH SOH WAS RECEIVED (000) 



JSR 

ROHCLK 

021204 

HOV 

CLR 

CHPB 

BEQ 

ERROR 



PCIMROY 



4(R1),R4 
R5 

RS.R4 

10 



.WAIT FOR INRDY 

.-NEXT WORD IS INSTRUCTION, 

:GET RECEIVE DATA 

.-PUT "FOUND" IN R4 

;PUT "EXPECTED" IN R5 

;1S RECEVIED DATA CORRECT? 

'BR IF VES 

;RECEIVE DATA ERROR 



ROHCLK PC = '^304 



.'CHECK TO SEE THAT SECOND FOUR CHARACTER HESSAGE 
:WAS RECEIVED CORRECTLY (0.125.252.377) 



HOV 
HOV 
JSR 

ROHCLK 
021204 
HOV 

novB 

CHPB 
BEQ 



«4.R3 

fnESDAT,R2 
PC, INRDY 



4(R1),R4 
(R2)+,R5 
R5,R4 
44$ 



;R3=CHARACTER COUNT 

;LOAD HESSAGE POINTER IN R2 

;WA1T FOR INRDY ^ 

.'NEXT WORD IS INSTRUCTION. ROHCLK PC-5504 

;PUT "FOUND" IN R4 
;PUT "EXPECTED" IN R5 
;1S RECEIVED DAIA CORRECT? 
;BR IF YES 



C2KCf MACm 30A(10S2) 08-JUL-80 
CZKCf .P11 08-JUL-80 08:24 
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BASIC RECEIVER TESTS 



B 9 



SEQ 0105 



5^.2<. 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 



026622 
026624 
026626 



026630 
026634 
026636 
026640 
026646 
026654 
026660 
026662 
026664 
026670 
026674 
026700 
026702 
026704 
026706 
026706 
026710 
026712 
026720 
026726 
026734 
026742 
026744 
026746 



026746 
026750 
026756 

026764 
026766 
026772 
026776 
027002 
027006 
027012 
027016 



104010 
005303 
001364 



004737 
104412 
021204 
116137 
042737 
004737 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
10«.015 

104412 
021204 
116137 
042737 
053737 
023737 
001401 
104027 



44$: 



031066 



000004 001302 
177400 001302 
031066 



000004 
000576 
000001 



51$; 



000004 001301 

000377 001300 

001300 001302 

031230 001302 



5$: 



000004 

012737 000054 001202 
012737 027200 001442 



TST54: 



104410 
012711 
012702 
012700 
004737 
004737 
004557 
032012 



004000 
032012 
000004 
031374 
050412 
031530 



ERROR 10 
DEC R3 
BNE 43$ 



.-RECEIVE DATA ERROR 
;DEC CHARACTER COUNT 
;BR IF NOT DONE YET 



.•CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 



JSR 

ROMCLK 
021204 

novB 

SIC 
JSR 

ROnCLK 

021244 

MOV 

BIC 

MOV 

CMPB 

BEQ 

ERROR 

ROMCLK 
021204 

nova 

BIC 
BIS 
CMP 
BEQ 
ERROR 



PC.INRDY 



4(R1),$TMP2 
#1 77400. $THP2 
PC.INRDY 



4(R1).R4 
#376. R4 
#1 .R5 
R5,R4 

5ii 

15 



4(R1)-$THP1*1 

#377.iT«Pl 

tTMPl .»T|IP2 

CALBCCSTMP? 

5S 

27 



;UA1T FOR INRDY 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
.•GET FIRST HALF OF CRC 
;PUT IN $TMP2 
.•CLEAR HI BYTE 
.•WAIT FOR INRDY 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;PUT "FOUND" IN R4 
;CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
;IS IN BCC HATCH SET? 

;IN BCC NATCH ERROR 

.-NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

.•GET LAST HALF 

;PUT IN $THP1 

.•CLEAR LO BYTE 

:16 BIT BCC NOW IN $TMP2 

;IS IT CORRECT? 

:BR IF OK 



;**.***f •••«•••••••••«***•• TEST 54 

.••EMPTY SILO TEST 

;*LOAD SILO WITH 2 SYNCS. 4 CHAR MESSAGE, SINGLE CLOCK 
; •UNTIL THE SILO IS EMPTY. LOAD 4 MORE CHARACTERS IN THE 
;^S1L0. GIVE MORE TICKS, AND VERIFY THAT ONLY THE FIRST 
:«4 CHARACTER MESSAGE MAS RECEIVED AND THAT RTS IS CLEAR 



TEST 54 



SCOPE 

MOV 

MOV 

MSTCLR 
MOV 
MOV 
MOV 

JSR 
JSR 
JSR 

MESDAT 



«S4,tTSTNM 
#TST55,NEXT 



#BIT11 ,(R1) 

IMESDAT.R2 

«4.R0 

PC.SYNLD 

PC.OUTRDY 

R5,nESLD 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

; MASTER CLEAR KMC11 

;SET LINE UNIT LOOP 

;R2 POINTS TO MESSAGE 

;R0 = CHAR COUNT 

.•LOAD SILO WITH TWO SYNCS 

;WAIT FOR OUTRDY 

.'LOAD MESSAGE IN SILO 

; START OF MESSAGE 



ZKCf 

czicrF 

5A80 

5485 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

S491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5505 

5S04 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5515 

55U 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5550 

5551 

5532 

5533 

5554 

5535 



HACY11 50A(1052) 08-JUL-80 
.P11 08-JUL-80 08:24 
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BASIC RECEIVER TESTS 



C 9 



SEQ 0106 



02^020 
027022 
027026 
027052 
027056 
027040 
027042 
027046 
027052 
027054 
027C56 
027064 
027066 
027070 
027074 
027100 
027102 
027104 
027110 
027112 
027114 
027116 
027120 
027122 
027124 
027150 
027152 
027154 
027140 
027144 
027146 
027150 
027152 
027156 
027160 
027162 
027166 
027172 
027174 
027176 
027200 



000004 
004757 
104415 
004557 
052012 
000004 
004757 
104415 
104412 
021264 
052761 
001401 

io40j; 

104413 
004737 
104412 
021204 
016104 
112205 
120504 
001401 
104010 
005500 
00)364 
004737 
104412 
021204 
016104 
012705 
120504 
001401 
104010 
004757 
104412 
021204 
016104 
012705 
120504 
001401 
104010 



027200 000004 
027202 012757 
027210 012737 



030260 
000065 
031530 



030260 
000005 



000040 000004 



000041 
031066 



000004 



031066 



000004 
000377 



031066 



000004 
000377 



5$: 
U: 



2S: 
3$: 



4$: 



lot: 



4 

JSR 

OATACLK, 
JSR 

MESDAT 
4 

JSR 

OATACLK, 

ROMCLK 

021264 

BIT 

BEQ 

ERROR 

DATACLK, 

JSR 

RONCLK 
021204 
HOV 

novB 

CMPB 

BEO 

ERROR 

DEC 

BNE 

JSR 

ROMCLK 
021204 
MOV 

nov 

CHPB 
BEO 
ERROR 
JSR 

ROnCLK 
021204 

mv 

NOV 

cnPB 

BEO 
ERROR 



.CHARACTER COUNT 
;UAIT FOR OCOR 
65 ;CLOCK DATA (EMPTY SILO) 

;PUT MORE CHARACTERS IN SILO 



PC, OCOR 
R5.HESL0' 

PC. OCOR 

5 ;CLOCK UNTIL RTS IS CLEARED 

;NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

;6ET RTS 
#BIT5,4{R1) ;IS IT CLEAR? 
5$ ;BR IF YES 

34 .-ERROR. RTS NOT CLEAR 

41 ;CLOCK xniTTER SOME MORE 

PC.INROY ;0K LETS CHECK WHAT WAS RECEIVED 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;6ET RECEIVE DATA 
4(R1).R4 ;PUT IT IN R4 

(R2)*.R5 ;R5 = "EXPECTED" 

R5.R4 ;IS DATA CORRECT? 

2$ ;BR IF OK 

10 :DATA ERROR 

RO ;DEC CHAR COUNT 

1$ ;BR IF NOT DONE YET 

PC.INRDY :WAIT FOR INRDY 

.-NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

:GET RECEIVE DATA 
4(R1).R4 .-PUT IT IN "FOUND" 

#577. R5 ;R5 = "EXPECTED" 

R5.R4 .-SHOULD SEE 377 

4$ :BR IF OK 

10 .-ERROR. TRANSMITTER DID NOT ABORT 

PC.INRDY ;WAIT FOR INRDY 

.-NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;6ET RECEIVE DATA 
4(R1),R4 ;PUT IT IN "FOUND" 

#377. R5 ;R5 = "EXPECTED" 

R5,R4 .SHOULD SEE 377 

10$ :BR IF OK 

10 ;ERROR, TRANSMITTER DID NOT ABORT 



; *t«««**«*t**««***««*****«** TEST 55 ••»••♦•*•»*•••••••«••♦•••♦* 

.-•HALF DUPLEX TEST 

:*SET LINE UNIT LOOP AND HALF DUPLEX. SEND SYNCS AND A 
.-•MESSAGE. VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR 
• • *«tttt**««*'****4*««**t*****t*****« ••%*•••*****« t 



000055 001202 
027316 001442 



; TEST 55 
tST55: SCOPE 



MOV »55,$TSTNM ; LOAD THE NO. OF THIS TEST 

MOV #TST56.NEXT : POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KHCll ADDRESS 
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D 9 



SEO 0107 



55i6 

5557 

5538 

5539 

55<.0 

5541 

55A2 

55A3 

554A 

554S 

5546 

5547 

5548 

5549 

5550 

5551 

5552 

555^ 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

5561 

5562 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 



02''216 
027220 
027224 
027230 
027236 
027240 
027242 
027246 
027252 
027256 
027260 
027262 
027266 
027272 
027274 
027276 
027302 
027306 
027310 
027312 
027314 
027316 



\ Uh<« I u 




MC T r 1 D 




• MACTCD ri CAD VMrll 


Ul C'\JC 




nUV 


M^o D5 


• CAuc 05 cno TvPcniiT 

,3^VC He r UN ITrCUUI 


ni 571 1 


AA/. AAft 

UUhUUU 


nUV 


«B (til /D1) 


l3t\ LINE UNI 1 LUUr 


f^^ 57<«1 
Ul C '01 




Mnu 

nUV 


«B IT/. /.fD1\ 


,LUAU rUK 1 •» 










,ncAl WUnl^ 19 IKd 1 nUL 1 lUN, nUnCLK rt-5jU*« 






155117 




•CPT U/n PIT 




n^i T7L 


ICR 






UUh f jf 


(ITAil 5 


I Cfi 

J jn 


pr niiTBnv 


,WA1I run UUlnl/T 




U 3 1 JJ\J 




BS MF CI n 

nj, nc jLU 


:LOAD 4 CHAR MESSAGE 


\JjC\J 1 c 




~C SWA 1 














.-CHARACTER COUNT 


nn^7T7 

v\JH f Jf 


\Jj\JCOv 


ICR 


pr nrnp 


•UAIT FnR nrnR 

fWni 1 run UvUn 




vvUvr 3 




7'< 














021244 




021244 




:READ LU-12 

;PUT "FOUND" IN R4 


016104 


000004 


MOV 


4(R1),R4 


042704 


000257 


BIC 


#257, R4 


.■CLEAR UNWANTED BITS 
;R5 = "EXPECTED" 


005005 




CLR 


R5 


120504 




CMPB 


R5,R4 


; IN-ACTIVE AND IN-RDY SHOULD BE CLEAR 


001401 




BEO 


IS 


;BR IF OK 


104035 




ERROR 


35 


.-ERROR BOTH ARE NOT CLEAR 



027316 000004 
027320 012737 
027326 012737 



027334 
027336 
027544 
027346 
027352 
027356 
027362 
0."'7370 
C27374 
027400 
027404 
027410 
027414 
027416 
027420 



104410 
032737 
001557 
012711 
004737 
004737 
012737 
005037 
012703 
012702 
112237 
004537 
000010 
000000 
000000 



1$: 



TEST 56 

•DDCMP CABLE DATA TEST 

•THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 

•4 SYNCS. 16 CHAR,E0H,16 CHAR.E0H,16 CHAR.EOM 

*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO 

•THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK 

•RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 

•LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 



TEST 56 



000056 001202 
027706 001442 



040000 002050 

004000 
031374 
031374 

120001 031226 

027420 

000020 

032016 

027416 

031122 



TST56: 



7»: 



5$: 
61: 



SCOPE 

MOV 

MOV 

MSTCLR 

BIT 

BEQ 

MOV 

JSR 

JSR 

MOV 

CLR 

MOV 

MOV 

M0V6 

JSR 

10 

0 

0 



#56.»TSTNM 
#TST57.NEXT 



#BIT14.STAT1 
3S 

#B1T11.(R1) 

PC.SYNLD 

PC.SYNLO 

fCRC16,XP0Lt 

6S 

#16., R3 
#FLT0AT.R2 
(R2)».5i 
R5,SIMBCC 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KHC11 ADDRESS 

;MASTER CLEAR KHCll 

;SKIP TEST IF NO 

.-LOOPBACK CONNECTOR ON 

.-SET LINE UNIT LOOP 

.-LOAD 2 SYNCS 

.-LOAD 2 MORE SYNCS 

.-LOAD POLYNOMIAL FOR SOFT CRC CALC 

; CLEAR OLD BCC 

: CHARACTER COUNT 

;R2= POINTER 

;LOAD CHAR FOR SOFT BCC CALC. 
;CALC SOFT BCC 
.-SHIFT COUNT 
: CHARACTER 
;OLD BCC 
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0271,20 



CZICF.PII 08 


. till *A0 
JUL Ov 


08 •?4 


5592 


02^422 


013737 


031230 


S595 


027430 


005303 




5594 


027432 


001 364 

WW ' 




5595 


027434 


004537 

WW" J J f 


031530 


5596 


027440 


032016 

W ^ b W ( w 




5597 


027442 


0000?0 

wvvwC w 




5598 


027444 


004737 

WW^ ' J ' 


03'! 504 

V J ^ J W^ 


5599 


027450 


004537 


031530 

■ ^ ^w 


5600 


027454 


032016 




5601 


027456 


000020 

WW W W L w 




5602 


027460 


004737 


031504 


5605 


027464 


004537 


031530 


5604 


027470 


032016 




5605 


027472 


000020 

WW WW w 




5606 


027474 


004737 


031504 


5607 


027500 


004737 


030260 


5608 


027504 


005011 




5609 


027506 


0 12700 


000003 


5610 


027512 


012703 


000020 


5611 


027516 


012702 


032016 


5612 


027522 


004737 


031066 


5613 


027526 


104412 




56H 


027530 


021204 




5615 


027532 


016104 


000004 


5616 


027536 


1 12205 




5617 


027540 


1 20504 




5618 


027542 


001401 




5619 


027544 


1 04025 




5620 


027546 






5621 


027546 


005303 




5622 


027550 


001 364 




5623 


027552 


012703 


000020 


562A 








5625 








5626 








5627 








5628 


027556 


004737 


031966 


5629 


027562 


104412 




5630 


027564 


021204 




5631 


027566 


116137 


000004 


5632 


027574 


042737 


177400 


5633 


027602 


004737 


031066 


5634 


027606 


104412 




5635 


027610 


021244 




5636 


027612 


016104 


000004 


5637 


027616 


042704 


000376 


5638 


027622 


012705 


000001 


5639 


027626 


120504 




5640 


027630 


001401 




5641 


027632 


1 0401 5 




5642 


027654 






5643 


027634 


104412 




5644 


027636 


021204 




5645 


027640 


116137 


000004 


5646 


027646 


042737 


000377 


5647 


027654 


053737 


001300 



001 30i 
001302 



001301 
001300 
001302 



>AGE 109 

: RECEIVER TESTS 



E 9 



SEQ 0108 



nov 

DEC 
BNE 

JSR 

FLTDAT 
16. 
JSR 
JSR 

fl TDAT 
16. 
JSR 
JSR 

FLTDAT 

16. 

JSR 

JSR 

CLR 

nov 

MOV 
NOV 

JSR 

ROHCLK 
021204 

nov 

mvB 
CNP8 
BEQ 
ERROR 

DEC 
BNE 
MOV 



CALBCC.6I 

R3 

7$ 

R5,MESLD 



PC.EOH 
RS.HESLD 



PC. EON 
R5,nESLD 



PC. EON 

PC.OCOR 

(R1) 

#3,R0 

#16. .R3 

#fLTDAT.R2 

PC.INRDY 



4(R1).R4 

(R2)».R5 

R5,R4 

2S 

25 

R3 
IS 

«16.,R3 



:LOAD OLD BCC 

:DEC COUNT 

;BR IF NOT DONE YET 

.-LOAD SILO 

.•MESSAGE ADDRESS 

.•CHARACTER COUNT 

:LOAD AN EOn 

;LOAD SILO 

:NESSA6E ADDRESS 

.•CHARACTER COUNT 

.•LOAD AN EOn 

;LOAD SILO 

;NESSAGE ADDRESS 

.•CHARACTER COUNT 

:LOAD AN EOn 

;UAIT FOR OCOR 

.•CLEAR LINE UNIT LOOP 

.•RO = MESSAGE COUNT 

:R3= CHARACTER COUNT 

:LOAD MESSAGE POINTER IN R2 

.-WAIT FOR INRDY 

:NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;GET DATA FROM IN SILO 

;PUT CHARACTER IN •'fOUND"' 

;PUT 'tXPECTED" IN R5 

:IS RECEIVED DATA CORRECT 

:BR IF OK 

.-DATA ERROR 

;DEC CHARACTER COUNT 

;BR IF NOT DONE THIS MESSAGE 

.'RESET CHARACTER COUNT 



.•CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 



JSR 

ROMCLK 

021204 

MOVB 

BIC 

JSR 

ROMCLK 

021244 

MOV 

BIC 

NOV 

CMPB 

BEQ 

ERROR 

ROMCLK 

021204 

MOVB 

BIC 

BIS 



PC.INRDY 



4(R1),STHP2 
f1 77400. $TNP2 
PC.INRDY 



4{R1).R4 

i376.R4 

#1.R5 

R5.R4 

25i 

15 



4(R1),$TNPU1 

f377,iTNP1 

$TNP1.$T«P2 



.-WAIT FOR INRDY 

.NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;GET FIRST HALF OF CRC 
;PUT IN $TMP2 
; CLEAR HI BYTE 
.-WAIT FOR INRDY 

:NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;PUT 'TCUND" IN R4 
.•CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
;IS IN BCC NATCH SET? 

:IN BCC MATCH ERROR 

;NEXT WORD IS INSTRUCTION. RONCLK PC=S504 

.•GET LAST HALF 

;PUT IN ITNP1 

.•CLEAR LO BYTE 

;16 BIT BCC NOW IN tTNP2 
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BASIC RECEIVER TESTS 



F 9 



SEO 0109 



5648 

56^.9 

5650 

5651 

5652 

5655 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 



02^662 
027670 
027672 
027674 
027700 
027702 
027704 



023737 
001401 
104027 
012702 
005300 
001307 
104420 



027706 000004 
027710 012737 
027716 012737 



027724 
027726 
027734 
027736 
027742 
027746 
027752 
027760 
027764 
027770 
027774 
030000 
030004 
030006 
030010 
030012 
030020 
030022 
030024 
030030 
030032 
030034 
030040 
030044 
030046 
030052 
030056 
030062 
030064 
030066 
030072 



104410 

032737 

001533 

012711 

004737 

004737 

012737 

005037 

012703 

012702 

112237 

004537 

000010 

000000 

000000 

013737 

005303 

001364 

004537 

032012 

000073 

004737 

004737 

005011 

012700 

012702 

004737 

104412 

021204 

016104 

112205 



031230 001302 



032016 



4$: 



3S: 



000057 001202 
003662 001442 



040000 002050 

004000 
031374 
031374 

120001 031226 

030010 

000073 

032012 

030006 

031122 



031230 030010 



031530 



031504 
030260 

000073 
032012 
031066 



000004 



TST57: 



7$: 



5$: 
6$: 



1$: 



CHP 

BEQ 

ERROR 

MOV 

DEC 

BNE 

ADVANCE 



CALBCC.$THP2 
4$ 

27 

#FLTDAT.R2 
RO 
IS 



;IS IT CORRECT? 
:BR IF OK 

.-RESET MESSAGE POINTER 
.'DECREMENT COUNTER 
;BR IF NOT DONE 



ADVANCE TO NEXT TEST 



;•••****•••***•••%***•«*•••• TEST 57 •.«•••••••••••••.•••••••••• 

.••DDCMP CABLE DATA TEST 

;«THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 

:*4 SYNCS. 59 DATA CHARACTERS, EOM WITH GARBAGE CHARACTER 

;*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK 

;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 

.^LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 



TEST 57 



SCOPE 

MOV 

MOV 

HSTCLR 

BIT 

BEQ 

MOV 

JSR 

JSR 

MOV 

CLR 

MOV 

MOV 

MOVB 

JSR 

10 

0 

0 

MOV 
DEC 
BNE 

JSR 

MESDAT 

59. 

JSR 

JSR 

CLR 

MOV 

MOV 

JSR 

ROMCLK 
021204 
MOV 
MOVB 



f57.»TSTNM 
fftEOP.NEXT 



#BIT14.STAT1 
3» 

#BIT11 ,(R1) 

PC.SYNLO 

PC.SYNLO 

«CRC16,XP0LY 

6t 

#59., R3 
«HESDAT.R2 
(R2)*.5i 
R5,SIHBCC 



CALBCC,6$ 

R3 

7% 

R5,MESLD 



PC, EDM 

PC.OCOR 

(Rl) 

#59., RO 

#MESDAT,R2 

PC.INRDV 



4(R1),R4 
(R2)*.R5 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE END OF PASS HANDLER. 

;R1 CONTAINS BASE KHC11 ADDRESS 

:MASrER CLEAR KMC11 

;SKIP TEST IF NO 

aOOPBACK CONNECTOR ON 

;SET LINE UNIT LOOP 

;LOAD 2 SYNCS 

.-LOAD 2 MORE SYNCS 

.•LOAD POLYNOMIAL FOR SOFT CRC CALC 

.CLEAR OLD BCC 

.•CHARACTER COUNT 

;R2= POINTER 

;LOAD CHAR FOR SOFT BCC CALC. 

.-CALC SOFT BCC 

.•SHIFT COUNT 

: CHARACTER 

;OLD BCC 

;LOAD OLD BCC 

.-DEC COUNT 

;BR IF NOT DONE YET 

:LOAD SILO 

.MESSAGE ADDRESS 

; CHARACTER COUNT 

.-LOAD AN EOM 

.-WAIT FOR OCOR 

: CLEAR LINE UNIT LOOP 

:R0= CHARACTER COUNT 

;LOAD MESSAGE POINTER IN R2 

;WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 
.-GET DATA FROM IN SILO 
;PUT CHARACTER IN "FOUND" 
;PUT "EXPECTED" IN R5 
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5704 


030074 


120504 


5705 


030076 


001401 


5706 


030100 


104025 


5707 


030102 




5 708 


030102 


005500 


5709 


030104 


001564 


5710 






5711 






5712 






5713 






57U 


030106 


004757 


5715 


030112 


104412 


5716 


030114 


021204 


5717 


030116 


116157 


5718 


030124 


042757 


5719 


030132 


004757 


5720 


030136 


104412 


5721 


030140 


021244 


5722 


050142 


016104 


5723 


030146 


042704 


5724 


050152 


012705 


5725 


0501 56 


120504 


5726 


050160 


001401 


5727 


050162 


10<i015 


5728 


050164 




5729 


050164 


104412 


5750 


050166 


021204 


5731 


0501 70 


116157 


5732 


050176 


042757 


5733 


050204 


055757 


5734 


050212 


025757 


5735 


050220 


001401 


5736 


030222 


104027 


5737 


030224 


10U20 


5738 






5739 






5740 






5741 






5742 






5743 


050226 




5744 






5745 






5746 






5747 


050226 


104412 


5748 


050250 


021564 


5749 


050252 


017757 


5750 


030240 


106157 


5751 


050244 


106157 


5752 


030250 


106137 


5753 


030254 


000207 


5754 


050256 


A A A AAA 

000000 


5755 






5756 






5757 


050260 




5758 






5759 
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08:24 BASIC RECEIVER TESTS 
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SEQ 0110 



2$: 



CMPB 

BEQ 

ERROR 

DEC 
BNE 



R5.R4 
2S 

25 

RO 
IS 



;IS RECEIVED DATA CORRECT 
:BR IF OK 
;DATA ERROR 

:DECREnENT COUNTER 
;BR IF NOT DONE 



;CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC yAS RECEIVED CORRECTLY 



051066 



000004 
177400 
051066 



000004 
000576 
000001 



001302 
001302 



000004 
000377 
001300 
031230 



151636 
030256 
030256 
050256 



25S: 



001501 
001500 
001302 
001302 



3S: 



JSR 

ROHCLK 
021204 

novB 

BIC 
JSR 

ROnCLK 

021244 

NOV 

BU 

HOV 

CnPB 

BEQ 

ERROR 

ROMCLK 

021204 

HOVB 

BIC 

BIS 

CMP 

BEQ 

ERROR 

ADVANCE 



PC.INRDY 



4(R1),»THP2 
#1 77400. ITHP2 
PC.INRDY 



4(R1),R4 

#376.R4 

#1 .R5 

R5,R4 

25i 

15 



4(R1).$THPU1 
#577,iTHPl 
STHPl .STHP2 
CALBCC.$TI1P2 
5$ 
27 

; ADVANCE TO NEXT TEST 



;WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;GET FIRST HALF OF CRC 
;PUT IN $THP2 
.•CLEAR HI BYTE 
.-WAIT FOR INRDY 

;NEXT yORD IS INSTRUCTION, ROMCLK PC=5304 

.PUT "FOUND" IN R4 
; CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
;IS IN BCC MATCH SET'.' 

.•IN BCC MATCH ERROR 

;NEXf WORD IS INSTRUCTION. ROMCLit PC=5304 
.•GET LAST HALF 
;PUT IN STHPI 
.'CLEAR LQ BYTE 
;16 BIT BCC NOW IN STMP2 
;IS IT CORRECT? 
:BR IF OK 



.-SUBROUTINES 



GETSl: 



.THIS SUBROUTINE READS LU 17. AND PUTS IT INTO NITCH. 
.NITCH IS ROTATED LEFT UNTILL THE SI BIT IS IN CARRY 



030256 



NITCH: 



OCOR: 



ROnCLK 

021364 

MOV 

R0L6 

ROLB 

ROLB 

RTS 

0 



iKMP04, NITCH 

NITCH 

NITCH 

NITCH 

PC 



.-NEXT WORD IS INSTRUCTION, ROMCLH PC=5304 
;P0RT4 LU 17 
;STORE'LU 17 

.-PUT SI IN THE CARRY BIT 



;THIS SUBROUTINE SPINS ON OCOR 
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151602 



r 7r r t o 


1 uo 


JwL OU 


OR -PL 
wO • ci 


? ' WW 


U JVC WW 


10^41? 
1 1 c 




J f O 1 




yjc • jdh 




J ' OC 


w JvCWH 


055777 


nono?o 

wwwWC W 




w jUc ' C 


00177? 

WW * 1 ' C 




> r 0*» 


\Jj\IC 1 H 


wWWCw f 




J • w J 








J • Ow 








S7<'»7 

J r O » 


yjjvc < w 






J f oo 








J 1 wT 








S770 








S771 








jl I c 


w JwC f w 


015657 


001276 

WW 1 C • w 


J f f J 


V JW VWC 


062746 

WWC • ^w 


000002 

wwwwwC 






012761 

W ' C » W ' 


000026 

VWWWfc w 


S77S 




104412 




S776 


030516 


1221 14 




S777 


030320 


004757 


030412 


S778 


030324 


012761 


000001 

wwwvw * 


S779 


0?0332 


104412 




S780 


030334 


1221 11 




S781 


030??6 


012761 


000026 

WWWC W 




030344 


10441 2 




S78^ 


030?46 

W^W J^W 


1?P110 




J f O"* 


Wi^Wi^ JW 


005557 


001276 

WW 1 C • W 


S78S 


0?0354 


001 561 






WiJW J^W 


004757 


050412 

w ^W^ ■ c 




W VW JVC 


005061 


000004 

wwwww^ 


^7M 


030366 


104412 






050370 


122111 






030372 


012761 


000301 

www ^W 1 


5791 


030400 


104412 




5792 


030402 


122110 




579? 


030404 


004737 


030260 

W «y Wfc WW 


5794 


030410 


000207 




5795 








5796 








5797 


030412 






5798 

<^ f TO 








5799 








5800 


030412 


005037 

WW ^ W^* 


001 306 


5801 


030416 






5802 


030416 


104412 




580? 


030420 


021224 

Wfc 1 t w ~ 




5804 


030422 


032777 


000020 

W W W Wb w 


5805 


030430 


001004 

WW < ww~ 






030432 


005237 


001 306 

WW ■ ^ww 


5807 


030436 


001367 

WW * ^W ' 




5808 


030440 


104036 




5809 


030442 


000207 




5810 








5811 








5812 


030444 






5813 








S8U 








5815 









27 PAGE 112 
SUBROUTINES 

ROMCLK 

021364 

BIT 

BEQ 

RTS 



H 9 



SEQ 0111 



SYNC: 



000004 

000004 
000004 



1$: 



000004 



OUTRDY: 



1$: 



151444 



2$: 



CHAR: 



«BIT4,8ICMP04 

OCOR 

PC 



NEXT yORD IS INSTRUCTION. ROMCLK PC=5304 
P0RT4 LU 17 
IS OCOR SET? 
BR IF NO 

OK OCOR IS SET, GO BACK 



;THIS SUBROUNTINE LOADS THE SILO yiTH THE NUMBER OF SYNC 
:CHARACTERS PASSED TO IT IN THE yORD AFTER THE JSR CALL 
.-AND A NON-SYNC CHARACTER (301) 



nov 

ADD 
HOV 

RCnCLK 
122114 
JSR 
NOV 

ROHCLK 
122111 
MOV 

ROnCLK 

122110 

DEC 

BNE 

JSR 

CLR 

ROnCLK 
122111 

nov 

ROMCLK 
122110 
JSR 
RTS 



a(sp)*.$T«po 

f2.-(SP) 
f26.4(R1) 



PC, OUTRDY 
«1 .4(R1) 



ff26.4(Rl) 



STHPO 
IS 

PC .OUTRDY 
4(R1) 



«301,4(R1) 



PC. OCOR 
PC 



SET COUNT 
ADJUST STACK 
LOAD PORT 4 

NEXT yORD IS INSTRUCTION. ROMCLK PC=5304 
LOAD SYNC REGISTER 
yAIT FOR OUTRDY 
LOAD PORT 4 

NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 
SET S0« 
LOAD PORT 4 

NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

LOAD OUT DATA 

ALL DONE? 

BR IF NOT 

UAIT FOR OUTRDY 

LOAD P0RT4 

NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

SET son 

LOAD P0RT4 

NEXT yORD IS INSTRUCTION, ROHCLK PC=5304 
LOAD OUT DATA 
yAIT FOR OCOR 



.-THIS SUBROUTINE SPINS ON OUT READY 



CLR 

R0«CL^ 

021224 

BIT 

BNE 

INC 

BNE 

ERROR 

RTS 



tTPIP4 



fBlT4,aKflP04 
21 

tTNP4 
IS 

36 
PC 



: CLEAR TIMER 

NEXT yORD IS INSTRUCTION. ROHCLK PC=5304 

P0RT4LU11 

IS OUT RDY SET? 

BR IF YES 

INC TIKR 

KEEP CHECKING IF NOT DONE 
ERROR. OUT READY NOT SET 



.-THIS SUBROUTINE LOADS THE SILO yiTM 3 SYNCS 
;AND THE CHARACTER PASSED TO IT. 



ilKif MACVU SOAllOiZ) 08-JUL-80 08;27 PAGE 113 
CZKCf.Pr 08-JU^-80 08:2<. SUBROUTINES 



I 9 



SEO 0112 



5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5845 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

5864 

5865 

5866 

5867 

5868 

5869 

5870 

5871 



030444 
030450 
030454 
030462 
030470 
030472 
030474 
030500 
030506 
030510 
030512 
030520 
030522 
030524 
030530 
030532 
030536 
030544 
030546 
030550 
030554 



030556 



030556 
030562 
030566 
030572 
030600 
030602 
030604 
030610 
030612 
030614 
030620 



030622 



030622 
030630 
030634 
030636 
030640 
030646 
030654 
030662 
030664 
030666 
030672 
050700 
030702 



013637 
062746 
012737 
012761 
104412 
1221U 
004737 
012761 
104412 
122111 
012761 
104412 
122110 
005337 
001361 
004737 
013761 
104412 
122110 
00^737 
000207 



013637 
062746 
004737 
013761 
104412 
122110 
0C4737 
104412 
122110 
004757 
000207 



012737 
005737 
100470 
001032 
062737 
012737 
012761 
104412 
122114 
004737 
012761 
104412 
122111 



001300 
000002 

000003 001276 
000026 000004 



0304^2 

000001 000004 



000026 000004 



001276 
030412 

001300 000004 



030260 



030260 



000075 
031062 



000002 
000003 
000026 



050412 
000001 



It: 



nov 

ADD 
MOV 

nov 

ROMCLK 

122114 
JSR 

nov 

ROnCLK 
122111 
nou 

ROMCLK 

122110 

DEC 

BNE 

JSR 

MOV 

ROMCLK 

122110 

JSR 

RTS 



CHARSD; 



001300 
000002 
030412 

001500 000004 



030412 



001300 



001300 
001276 
000004 



000004 



1$: 



a(SP)».ST«pi 

f2,-(SP) 
#3.STHP0 
f26,4(R1) 



PC.OUTRDt 
«1.4(R1) 



»26,4(R1) 



$T«PO 
IS 

PC.OUTRDt 
$T«P1.4(R1) 



PC.OCOR 
PC 



;6ET CHARACTER 
;ADJUST STACK 
;SET FOR 5 SYNCS 
;LOAD P0RT4 

;NEXT WORD IS INSTRUCTION, ROMCLK PC-5504 
;LOAD SYNC REGISTER 
.•WAIT FOR OUTRDY 
.LOAD P0RT4 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;SET SON 
.-LOAD P0RT4 

.-NEXT WORD IS INSTRUCTION 
;LOAO OUT DATA 
.•ALL DONE? 
;BR IF NOT 
;WA|T FOR OUTRDY 
;LOAD P0RT4 

.-NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
.-LOAD OUT DATA 
:WAIT FOR OCOR 



OOMCLK PC =5304 



;rHlS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT. 



NOV 
ADD 

JSR 
MOV 

ROMCLK 
122110 
JSR 

ROMCLK 
122110 
JSR 
RTS 



a(SP)»,$TMPl 
f2,-{SP) 
PC, OUTRDY 
$T«P1.4{R1) 



PC. OUTRDY 



PC.OCOR 
PC 



;6ET CHARACTER 
.•ADJUST STACK 
:WAIT FOR OUTRDY 
;LOAO P0RT4 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
.-LOAD OUT DATA 
:WAIT FOR OUTRDY 

.NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
.'LOAD GARBAGE CHAR 
:UAIT FOR OCOR 



SILOLD: 



;TH!S SUBROUTINE FILLS THE OUT SILO 
; WITH A BINARY COUNT PATTERN 



MOV 

TST 

BHI 

BNE 

ADD 

NOV 

MOV 

ROMCLK 

122114 

JSR 

MOV 

ROMCLK 
122111 



#73.»TW»1 

SCHAR 

4$ 

2% 

f2.$TMP1 
#S,tTMPO 
ff26,4(R1) 



PC, OUTRDY 
ff1.4(Rl) 



:LOAD COUNT 
.FIRST TIME HERE? 
;BR IF BITSTUFF 
* BR IF NO 

•ADO 2 TO CHARACTER COUNT 
;SET FOR 3 SYNCS 
.LOAD PORTA 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
:LOAD SYNC REGISTER 
:WAIT FOR OUTRDY 
.•LOAD P0RT4 

;NEXT WORD IS INSTRUCTION. ROMCLK PC:S304 
;SET SON 



CZICCF 




3Ga(1052) 08-JUl 


DA AQ 

-80 Oc 


CZUCf.PU 08 


-JUL-80 


08:24 




S872 


050704 


012761 


000026 


UUUUU4 


5875 


050712 


104412 








050714 


122110 






5875 


050716 


005557 


001276 




5876 


050722 


001561 






5877 


050724 


004757 


050412 




5878 


030730 


015761 


051062 


UU0UU4 


5879 


030736 


104412 






5880 


030740 


122110 






5881 


030742 


005757 


051064 




5882 


030746 


001407 






5883 


030750 


015757 


051062 


58A4 


030756 


004537 


A V « ^ 4 ^ 

031612 




5885 


030762 


000000 






58A6 


030764 


000010 






5887 


030766 


005257 


051062 




5888 


030772 


022757 


AAA 1 A A 

000400 




5889 


031000 


001405 






5890 


031002 


005557 


A A 4 V A A 

001500 




5891 


031006 


001546 






5892 


051010 


004757 


030260 




5893 


051014 


000207 






5894 


051016 


005037 


A V 4 A^ ^ 

031062 




5895 


051022 


012757 


M1177 


5896 


051050 


005057 


032010 




5897 


031034 


062757 


000002 


5898 


031042 


012761 


A A A A A 4 

000001 


AAAAA/. 


5899 


031050 


104412 






5900 


051052 


122111 






5901 


051054 


4 Ay / 4 1 

104412 






5902 


051056 


122110 






5903 


051060 


000721 






5904 


051062 


000000 






5905 


031064 


AAAAAA 

000000 






5906 










5907 










?908 


031066 








5909 










5910 










5911 










5912 










5913 










5914 










5915 








Am 


^/I6 


031066 


012757 


A A A AAA 

000000 


5917 


031074 








5918 


031074 


4 A / t 4 ^ 

1 044 1 2 






5919 


051076 


021244 






5920 


031100 


A www 

052777 


AA AA^ A 

000020 


\ JUi 00 


5921 


031106 


AA 4 AAi 

001004 






5922 


05M10 


005237 


0012f 6 




5925 


031114 


001 36f 






5924 


031116 


104037 






5925 


031120 


000207 






5926 










5927 











2$: 



;27 PAGE 114 
SUBROUTINES 



MOV 

ROMCLK 

122110 

DEC 

BNE 

JSR 

MOV 

ROMCLK 
122110 
TST 
BEQ 

nov 

JSR 
0 

10 

INC 

CMP 

BEQ 

DEC 

BNE 

JSR 

RTS 

CLR 

MOV 

CLR 

ADD 

MOV 

ROMCLK 

122111 

ROMCLK 

122110 

BR 

0 

0 



J 9 



SEO 0113 



5t: 
6$: 



3$: 
4S: 



SCHAR: 

STUFLG: 



INRDV: 



f26,4(R1) 



STMPO 
1S 

PC.OUTRDY 
SCHAR, 4(R1) 



STUfLG 
6S 

SCHAR, 5S 
R5.STFFCL 



SCHAR 

#400. SCHAR 
5S 

$TMP1 
2S 

PC.OCOR 

PC 

SCHAR 

#-1. STUfLG 
BITCON 
#2.STMP1 
«1 .4(R1) 



21 



;LOAO PORT 4 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 

;L0AD OUT DATA 

.-ALL DONE? 

:BR IF NOT 

.-WAIT FOR OUTROY 

;LOAD PORT 4 

;NEXT UORD IS INSTRUCTION, ROMCLK PC=5504 
.•LOAD OUT DATA 
.•BITSTUFF??? 
'BR IF NO 

■IT IS SDLD SO CHECK BITSTUFFING 
:ADD ANY BIT STUFF CLOCK TICKS 
: CHARACTER 
; CHI FT COUNT 
;NEXT CHARACTER 
;ALL DONE? 

.-DECREMENT COUNT 
;BR IF NOT DONE 
.WAIT FOR OCOR 

; START PATTERN AT ZERO 
;SET BITSTUFF FLAG 
.'CLEAR STUFF COUNT 
;ADD 2 TO CHARACTER COUNT 
;SET BITO IN P0RT4 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
.'SET SOU! 

;NEXT yORD IS INSTRUCTION, ROHCLK PC=5304 
.LOAD GARBAGE CHAR 
:G0 LOAD SILO 



;^HIS SUBROUTINE SPINS ON INRDY 

;IF INROY FAILS TO SET THE DELAY TIMES OUT AND AN 
.ERROR IS REPORTED. FOR BETTER SCOPE LOOPS THIS 
.DELAY CAN BE MADE SHORTER BY ALTERING THE NUMBER 
.INITIALLY LOADED INTO ITWO. THE SMALLER THE NUMBER 
.-THE SHORTER THE DELAY. 0 IS THE LONGEST DELAY. 



It: 



2t: 



MOV 

ROHCLK 

021244 

BIT 

BNE 

INC 

BNE 

ERROR 

RTS 



to, STMPO 



«BIT4,aKHP04 
2* 

ITMPO 
It 

57 
PC 



;SET UP DELAY COUNTER 

.'NEXT UORD IS INSTRUCTION. ROMCLK PC=5504 

;P0RT4 LU12 

;IS INROY set? 

;BR IF YES 

;INC DELAY 

;TRY AGAIN 

: ERROR. NO INRDY 

.RETURN 



CZKCF 




30ai10d2 


> 08-Jl 


CZKCf.PII 08 


-JUL-80 08:24 


5928 


031122 






5929 








59i0 








5931 








S952 








5933 


031122 


010046 




5934 


031124 


012537 


001276 


5935 


031130 


012537 


001300 


5936 


031134 


012537 


031230 


5937 


031140 


013700 


031230 


5938 


031144 


000241 




5939 


031146 


006037 


031230 


5940 


031152 


006037 


001300 


5941 


031156 


005500 




5942 


031160 


006000 




5943 


031 U2 


103011 




5944 


031164 


013700 


031226 


5945 


031170 


043700 


031230 


5946 


031174 


043737 


031226 


5947 


031202 


050037 


031230 


5948 


031206 


005337 


001276 


5949 


031212 


001352 




5950 


031214 


013700 


031230 


5951 


031220 


OOoOOO 




5952 


031222 


012600 




5953 


031224 


000205 




5954 


031226 


OOOOOO 




5955 


031230 


OOOOOO 




5956 




000230 




5957 




120001 




5958 




102010 




5959 








5960 








5961 


031232 






5962 








5963 








5964 








5965 








5966 


031232 


013637 


001300 


5967 


031236 


062746 


000002 


5968 


031242 


012737 


000002 


5969 


031250 


012761 


000026 


5970 


031256 


104412 




5971 


031260 


122114 




5972 


031262 


004737 


030412 


5973 


031266 


012761 


000001 


5974 


031274 


104412 




5975 


031276 


122111 




5976 


031300 


012761 


000026 


5977 


031306 


104412 




5978 


031310 


122110 




5979 


031312 


005337 


001276 


5980 


031316 


001361 




5981 


031320 


004737 


030412 


5982 


031324 


013761 


001500 


5983 


051532 


104412 
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SUBROUTINES 



K 9 



S£Q 0114 



SIM6CC: 



031230 



:TH1S SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN 
;IN XPOLY. THE CORRECT CRC IS ILPADRED IN CAL6CC, AND THE 
.-STATE OF THE LSB OF THE BCC IS SlPADRED IN THE C BIT. 

;SAVE RO ON STACK 
;$TMPO = SHIFT COUNT 
;$TMP1 = CHARACTER 
;CALBCC - OLD BCC 
.-PUT OLD BCC IN RO 

.•SHIFT OLD BCC 
.-SHIFT CHARACTER 
.-ADD CHAR CARRY TO OLD BCC 
.-PUT BITO TO CARRY BIT 
.-CARRY IS FEEDBACK BIT 
;IF FEEDBACK = 1 
.-EXCLUSIVLY OR XPOLY TO CALBCC 



;DEC SHIFT COUNT 
.-BR IF NOT DONE 
;PUT RESULT IN RO 
.•SHIFT BITO TO CARRY 
.•RESTORE RO 
.-ILPADR 





MOW 


RO -(SP) 




MOV 


(R^)> tTMPO 




MOV 


(R5)« tTMPI 




MOV 


(R5) ♦.CALBCC 


1$: 


MOV 


CALBCC. RO 




CLC 






ROR 


CALBCC 




ROR 


STMP1 




ADC 


RO 




ROR 


RO 




BCC 


2S 




MOV 


XPOLY, RO 




BIC 


CALBCC. RO 




6IC 


XPOLY. CALBCC 




BIS 


RO. CALBCC 


2$: 


DEC 


$TMPO 




6NE 


1$ 




MOV 


CALBCC, RO 




ROR 


RO 




MOV 


(SP)».RO 




RTS 


R5 


XPOLY: 


0 




CALBCC 


: 0 




LRC8=200 




CRC16= 


120001 




CRC.CCITT=102010 



6CCLD: 



;rHIS SUBROUTINE LOADS THE OUT SILO UITH 2 SYNCS 
.-WITH SOM SET, AND ONE CHARACTER PASSED TO IT 
,-WlTH THE SOM BIT CLEAR (ENABLE CRC) 



001276 
000004 



000004 
000004 

000004 



1$: 



MOV 
ADD 
MOV 
MOV 

ROMCLK 
122114 
JSR 
NOV 

ROMCLK 

122111 

MOV 

ROMCLK 

122110 

DEC 

BNE 

JSR 

MOV 

ROMCLK 



a{SP)*.»TMP1 
#2.-(SP) 
f2.»TMP0 
«26.4(RU 



PC.OUTRDY 
f1.4(Rl) 



f26.4(R1) 



STMPO 
U 

PC.OUTRDY 
$TMP1.4(R1) 



;GET CHARACTER 
;ADJUST STACK 
.-SET FOR 2 SYNCS 
:LOAD P0RT4 

;NEXT yORD IS INSTRUCTION. ROMCLK PC=5304 
;LOAD SYNC REGISTER 
;UAIT FOR OUTRDY 
.-LOAD P0RT4 

.-NEXT yORD IS INSTRUCTION. ROMCLK PC=5304 
,-SET SOM 
.-LOAD P0RT4 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

,-LOAD OUT DATA 

;ALL DONE? 

:BR IF NOT 

.-WAIT FOR OUTRDY 

;LOAD P0RT4 

:NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 



ZUCf 




50a ( lOSi 


ZKCF.P11 08 


-JiiL-80 




051554 


122110 






004737 


J TOO 


051 542 


000207 


y T*y f 






✓ TOW 






S989 

J TO T 


051 544 




5990 






5991 






5992 






5993 


031344 


10441 2 


5994 


031346 


021364 


5995 


031350 


106177 


5996 


031354 


000207 


5997 






5998 






5999 


031556 




6000 






6001 






6002 






6003 


031356 


104412 


6004 


031 360 


021564 


6005 


031 362 


i nx i 

1061 If 


6'^C»*» 


031 366 


106177 


6007 


031372 


000207 


6008 






6009 






6010 


031374 




6011 






6012 






6013 






60K 


031374 


012757 


6015 


031402 


012761 


6016 


031410 


1 A/ / 1 ^ 


6017 


031412 


122114 


6018 


031414 


AA/ 

004757 


6019 


031420 


012761 


6020 


031426 


104412 


6021 


031430 


4 '^'^4 4 4 

122111 


6022 


031432 


A4 4 

012761 


6023 


031440 


104412 


6024 


031442 


122110 


6025 


031444 


003 55 f 


6026 


031450 


001 561 


6027 


031452 


AAA^A7 

000207 


6028 






6029 






6030 


031454 




6031 






6032 






6033 






6034 


031454 


004757 


6035 


031460 


A4 4 

012761 


6036 


031466 




6037 


031470 


122111 


6038 


031472 


005061 


6039 


031476 


104412 
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OB: 24 



JUL -80 
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SUBROUTINES 

122110 

JSR 

RTS 



L 9 



SEO 0115 



GETQO: 



150520 



GETQI: 



150506 
150502 



SYNLD: 



000002 001276 
000026 000004 



030412 1$: 
000001 000004 



000026 000004 
001276 

SOM: 



030412 

000001 000004 



000004 



PC.OCOR 
PC 



.■LOAD 
;UA1T 



OUT DATA 
FOR OCOR 



;TH1S SUBROUTINE READS THE STATE OF THE TRANSMIT 
;BCC LSB AND PUTS IT IN THE CARRY BIT 



ROMCLK 
021364 

ROLB aKMP04 
RTS PC 



;NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 
;P0RT4 LU-17 
;PUT QO IN CARRY 
.•RETURN 



.•THIS SUBROUTINE READS THE STATE OF THE RECEIVE 
:BCC LSB AND PUTS IT IN THE CARRY BIT 



ROnCLK 
021364 

ROLB aKnP04 
ROLB aKnP04 
RTS PC 



;NEXT WORD IS INSTRUCTION. ROHCLK PC=530«. 
;P0RT4 LU-17 
:PUT QO IN CARRY 
:PUT QI IN CARRY 
; RETURN 



.-THIS SUBROUTINE LOADS OUT SILO WITH 
;2 SYNC CHARACTERS WITH SOH SET 



MOV 
NOV 

ROnCLK 
122(14 
JSR 
NOV 

ROHCLK 
122111 
NOV 

RONCLK 

122110 

DEC 

BNE 

RTS 



f2,$TNP0 
ff26,4(R1) 



PC.OUTROY 
f1,4<R1) 



«26.4(R1) 



STNPO 
1$ 

PC 



;LOAD COUNTER FOR 2 SYNCS 
;P0RT4 26 

;N£XT OORD IS INSTRUCTION, RONCLK PC=5304 
;LOAD SYNC REG 
;yAIT FOR OUTRDY 
;LOAD P0RT4 

;NEXT WORD IS INSTRUCTION, RONCLK PC=5304 

;SET SON 

;P0RT.26 

.NEXT WORD IS INSTRUCTION, RONCLK PC=5304 
;LOAO OUT DATA WITH SYNC 
:DECREN€NT COUNTER 
:BR IF NOT DONE 
: RE TURN 



;THIS SUBROUTINE LOADS SON AND OUT DATA WITH A 
.■GARBAGE CHARACTER (0) 



JSR 
NOV 

RONCLK 

122111 
CLR 

RONCLK 



PC, OUTRDY 
#1.4(R1) 



4{R1) 



;UAIT FOR OUTRDY 
;P0RT4 1 

;NEXT OORD IS INSTRUCTION, RONCLK PC=5504 
.-SET SON 

.•CLEAR DATA CHAR 

;NEXT WORD IS INSTRUCTION. RONCLK PC=5304 



C2KCF 


MACY11 


50A( 105)2 


CZKCF.PH 08 


-JUL-80 


6040 


A V 1 C A A 

031500 


122110 


6041 


A V 4 f A^ 

031502 


000207 


6042 






6045 






6044 


A9 4 C Al 

031504 




6045 






6046 






£. Ai Y 

6047 






6048 


AY i C A/ 

051504 


004737 


604V 


ATI CIA 

031 510 


012761 


1.AC A 

60)0 


All CI X 

051516 


104412 


^A^ 1 


ATI C9A 

031 5cU 


122111 


6072 


ATI Cli 

051 5cc 


104412 


6053 


ATI C5/. 

0315c*» 


122110 




ATI Olt 


000207 


^AC C 

6053 






OO76 






605 1 


A T ^ C TA 

051530 




o05B 






6059 






&00U 






Z. A^ ^ 

6061 






^ A^ T 

6062 


ATI CTA 

051 550 


010046 


A A^ T 

6063 


ATI C T3 

031532 


012500 


6064 


ATI CT/ 

031 53^ 


012537 


6065 


ATI C/. A 

051 5«>0 


004737 


^ A^ A 

6066 


ATi cy i 
0515** 


112061 


6067 


ATI CCA 

031 550 


104412 




ATI 

U^l 53c 


122110 


oOoV 


ATI CC^ 
031 55"» 


005337 


OO'O 


ATI CAA 

031 300 


001367 


OUf 1 


ATI 


004737 


iL/>75 


ATI C^A 


012600 


OOf J 


ATI C7n 
031 5'U 


000205 


60 






60r 5 






60^0 


ATI C75 
031 5 f £ 




AA77 

60 f r 






<^7B 

OUre 






it A 70 






6U0U 


ATI S7? 


012761 


OUO 1 


AT1 AAA 


104412 


60O£ 


ATI AA5 
03 lOUc 


122112 




ATI AAZ 


104412 


iL no/. 
6UO*» 


ATI 

Mj 1 OUO 


122111 


6005 


ATliLlA 
03101U 


000207 


▲ASA 
6O0O 






AAA 7 
608 f 






OUO6 


ATI 5 




OwOT 






6090 






6091 






6092 


031612 


010046 


6093 


031614 


012500 


6094 


031616 


012537 


6095 


031622 


106000 



08 



08 
24 



■JUL-80 08 
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SUBROUTINES 

122110 
RTS 



H 9 



SEO 0116 



EOM: 



030412 
000002 



000004 



MESLD: 



001276 
030412 
000004 



001276 
030260 



It: 



CLRIO: 



000200 000004 



PC 



.-LOAD GARBAGE CHARACTER 
.•RETURN 



;TMIS SUB«0UT1NE LOADS EOH AND OUT DATA WITH A 
.-GARBAGE CHARACICR (2) TO ENABLE TRANSMISSION OF BCC 



JSR 

MOV 

ROMCLK 

122111 

ROMCLK 

122110 

RTS 



001302 



PC.OUTRDY 
#2,4(R1) 



PC 



.•WAIT FOR OUTRDY 
;P0RT4 2 

.•NEXT OORD IS INSTRUCTION, ROMCLK PC=5304 
;SET EOH 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

.-LOAD GARBAGE CHARACTER 

.•RETURN 



.•THIS SUBROUTINE LOADS SlLO WITH MESSAGE 

:THE FIRST ARUGUNENT IS THE ADDRESS OF THE MESSAGE 

;THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE 



MOV 

MOV 

MOV 

JSR 

MOVB 

ROMCLK 

122110 

DEC 

BNE 

JSR 

MOV 

RTS 



RO--(SP) 

(R5)».R0 

(R5)*.$T«P0 

PC.OUTRDY 

(R0)«,4(R1) 



STMPO 
IS 

PC.OCOR 

(SP)».RO 

R5 



:SAVE RO 

:RO«MESSAGE POINTER 

;$TMPO«CHARACTER COUNT 

:yAIT FOR OUT RDY 

:LOAD P0RT4 WITH CHARACTER 

.•NEXT yORD IS INSTRUCTION. ROMCLK PC=5304 

:LOAD OUT DATA SILO 

.DEC CHAR COUNT 

;BR IF NOT DONE 

;UAIT FOR OCOR 

.•RESTORE RO 

;RETiWN 



STFFCL: 



1»: 



.•THIS SUBROUTINE SETS IN CLR AND OUT CLR TO 
.•CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS 

MOV fBlT7,4(R1> ;LOAO P0RT4 

ROMCLK ;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

122112 .-SET IN CIR! 

ROMCLK ;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

122111 ;SET OUT CLR! 

RTS PC ; RE TURN 



:THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS 
)fIRST argument is char, SECOND ARGUMENT IS SHIFT COUNT. 

MOV RO.-(SP) ;SAVE RO 

MOV (R$>*,RO ;PUT CHAR IN RO 

MOV (R5)*.$TMP2 ;PUT SHIFT COUNT IN $TMP2 

RORB RO ;LOOK AT NEXT BIT 
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N 9 



6096 

6097 

609 ^ 

6099 

6100 

6101 

6102 

6103 

61 OA 

6105 

6106 

6107 

6106 

6109 

6110 

6111 

6112 

6113 

61U 

6115 

6116 

6117 

6118 

6119 

6120 

6121 

6122 

6123 

6124 

6125 

6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 

6138 

6139 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 



031624 
031626 
031632 
031634 
031640 
031646 
031650 
031654 
031660 
03166^ 
031666 
031670 



031672 



031762 



031762 
031764 
031770 
031776 
032000 
032002 
032004 



032006 
032010 
032012 



103403 
005037 
000412 
005237 
022737 
001004 
005037 
104413 
005337 
001356 
012600 
000?05 



032010 

032010 
000005 

032010 
000001 
001302 



010046 
012700 
027777 
005300 
001373 
012600 
000207 



000176 
000000 
000 



000032 
147250 



032010 



c 1 lOoni IT f uc c 
SUBROUl INcd 




ore 
bid 


C9 


r 1 D 


Q f T rnki 

B 1 1 LUN 


DD 

BR 




c»: INL 


Q 1 T rnu 


mo 


BT Trnu 




39 




Dl TrnN 


DATACLK, 


1 


3S: DEC 


STMP2 


BNE 


It 


MOV 


(SP)*,RO 


RTS 


R5 



SEO 0117 



STFFCK; 



031672 


010046 




031674 


012500 




031676 


012537 


001302 


031 702 


106000 




031704 


103403 




031 706 


005037 


032010 


031712 


000416 




031714 


005237 


032010 


031720 


022737 


000005 032010 


031726 


001010 




031730 


005037 


032010 


031734 


104413 


000001 


031740 


004737 


030226 


031744 


103001 




031746 


104030 




031750 


005337 


001302 


031754 


001352 




031756 


012600 




031760 


000205 





1$: 



2S: 



3S: 



CTSDLV; 



147246 1$: 



;BR IF A HARK 

;IT WAS A SPACE. CLEAR TS COUNTER 
.•CONTINUE 

;INC CONSECUTIVE 1*S COUNTER 
;IS IT 5 YET? 
'BR IF NO 

•YES! SO START AGAIN 

.•GIVE EXTRA TICK TO STUFF ZERO 

;DEC SHIFT COUNT 

;BR IF NOT DONE 

.•RESTORE RO 

: RE TURN 



;THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER 

;IS STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT 

;IS THE CHARACTER. SECOND ARGUMENT IS SHIFT COUNT. 

MOV RO.-(SP> ;SAVE RO 

MOV (R5)*,R0 ;PUT CHAR IN RO 

MOV (R5)*,»THP2 ;PUT SHIFT COUNT IN iT«P2 

RORB RO ; SHIFT OUT NEXT BIT 

BCS 2» ;BR IF IT IS A MARK 

CLR BITCON ;1T WAS A SPACE. CLEAR 1'S COUNTER 

BR 3t : CONTINUE 

INC BITCON ;INC CONSECUTIVE I'S COUNTER 

CMP #5.BITC0N ;5 IN A ROW YET? 

BNE 3$ :BR IF NO 

CLR BITCON ;YES. SO START OVER 

DATACLK. 1 .-EXTRA TICK TO STUFF 

JSR PC.GETSI ;LOOK AT WINDOW 

BCC 3S ; IS IT A ZERO. BR IF 

ERROR 30 ;N0. ERROR ZERO WAS 

DEC «TMP2 ;OEC SHIFT COUNT 

BNE It ;BR IF NOT DONE 

MOV ($P)«.RO :RE$TORE RO 

RTS R5 .RETURN 



125 



252 



FLAG 

BITCON: 

MESDAT: 



ZERO 

YES 
NOT STUFFED 



.•This SUBROUTINE WASTES TIME UNTIL CTS SETS. 
;BUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS OUT 



MOV 
MOV 
CMP 
DEC 
BNE 
MOV 
RTS 



RO.-(SP) 
f52.R0 
aSTKS.atTKS 
RO 

1$ 

(SP)*.RO 
PC 



•B<01111110> 
0 

.BYTE 0.125.252.377 



:SAVE RO 

:L0AD RO WITH COUNT 
.•WASTE TIME 
.DECREMENT COUNTER 
.DO IT AGAIN IF NOT 
.RESTORE RO 
; RE TURN 



:FLAG CHARACTER 



= 0 
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C2KCF.P11 08 


-JUL -80 


08:24 




SUBROUTINES 


6152 


032015 


37'' 












6153 


032016 


001 


002 


004 


FLTDAT: .BVTE 


6154 


052021 


010 


020 


040 








6155 


032024 


100 


200 


376 








6156 


032027 


375 


373 


367 








61 57 


A 9 ^ A v^ 

052052 


357 


337 


277 








6158 


A V ^ A T C 

032035 


177 












61 59 


AT ^ ATi 

032036 


100 


140 


160 


STUFDT: .BVTE 


6160 


A T A y 4 

032041 


170 


003 


300 








61 61 


032044 


174 


176 


177 








6162 


AT A^ 7 

032047 


001 












6i65 


032050 


^63 


347 


317 






.BYTE 


6164 


AT 1AC T 

032053 


200 


OCO 


377 








6165 


AT '%f\C £. 

032056 


377 


377 


200 








6166 


AT ^ Ai 1 

032061 


037 












6167 










.EVEN 


6 1 68 


AV) AX 1 

032062 


046200 


047111 


020105 


EH1 




.ASCI2 




032120 


046200 


047111 


020105 


EH2 




.ASCI2 




AT1 1 AT 

052165 


200 


044514 


042516 


EH5 




ASCli 




AT 


200 


044514 


042516 


EH4 




.ASCI2 




032271 


200 


051124 


047101 


E«5 




.ASCI2 




A T 1 T 1 

032521 


200 


042522 


042503 


En6 




.ASCI2 




AT 1 Ty A 

032340 


051200 


041505 


044505 


EM7 




.ASCi; 




052365 


200 


047515 


042504 


EH10 


.ASCI: 




A T ^ / 4 A 

032410 


052200 


044510 


020125 






.ASCi: 




ATT / TA 

032470 


040600 


052125 


051517 






.ASCi: 




AT "T C C i 

032551 


200 


047531 


020125 






.ASCI2 




A T1 C TA 

032570 


052200 


040522 


051516 


EH11 


.ASCI2 




05261 f 


200 


042522 


042505 


Eni2 


.ASCI2 




032645 


200 


047111 


041040 


Em3 


.ASC12 




032 705 


200 


051124 


047101 


EMU 


.ASCI2 




0527^5 


200 


040503 


046102 


EM15 


.ASCI2 




A* ^ 77y 

052774 


043200 


040514 


020107 


EM16 


.ASCI2 




ATTA1 A 

055010 


052200 


040522 


051516 


EH17 


.ASCI2 




035054 


051600 


044527 


041524 


EH20 


.ASCI2 




033075 


200 


041101 


051117 


EH21 


.ASCI2 




0551 12 


AC AA 

052200 


A/ AC 1 

040522 


AC i C i A 

051 516 


EH22 


.ASCI2 




U531 35 


200 


040510 


043114 


EM25 


.ASCI2 




033Or 


200 


052517 


020124 


EH24 


.ASCI2 




SJ33CVC 


044600 


020116 


042522 


En25 


.ASCI] 




Oiicc'* 


042600 


050130 


041505 


0H1 




.ASCIJ 




U33£4? 


200 


054105 


042520 


DH2 




.ASCI2 




U555U3 


200 


044103 


051101 


DH3 




.ASCIJ 




033341 


200 


047503 


051122 


DH4 




.ASCli 




033401 


200 


054105 


042520 


DH5 




.ASCIi 




ATT/ TT 

0334 33 


AA 

200 


AC i 4 AC 

054105 


A/ 1C 'SA 

042520 


DH6 




.ASCIi 




035501 


200 


046102 


041517 


0H7 




.ASCIi 






051200 


051524 


042040 


DHIO: .ASCi; 






033550 






.EVEN 




033550 


000002 






on 




2 




033552 


003 


007 








.BYTE 




033554 


001274 










SREG5 




033556 


003 


002 








.BYTE 




033560 


001272 










$REG4 



6 10 



1.2.4.10.20,40.100,200.376,375,373.367.357.337,277,177 



100,140.160,170,3,300,174,176,177,1 



363,347,317.200.0.377.377,377,200,37 



<200>/LlNE UNIT INITALIZATION TEST/ 
<200>*LINE UNIT REGISTER REAO/ONLY TEST* 
<200>»LINE UNIT REGISTER WRITE/READ TEST* 
<200>/LINE UNIT INTERNAL CLOCK FAILURE/ 
<200>/TRANSniTTER DATA ERROR/ 
<200>/RECEIVER TEST/ 
<200>/RECEIVER DATA ERROR/ 
<200>/H0DEH SIGNAL ERROR/ 

<200>/THIS ERROR COULD BE CAUSED IF YOU HAVE V.35 AND/ 

<200>/AUTOSIZED. YOU MUST MANUALLY ANSWER QUESTIONS IF/ 

<200>/Y0U HAVE V.35/ 

<200>/TRANSMITTER CRC ERROR/ 

<200>/RECEIVER CRC ERROR/ 

<200>/IN see HATCH ERROR (LU REG 12)/ 

<200>/TRANSniTTER FAILED TO 60 TO NARK STATE/ 

<200>/CA8LE DATA TEST/ 

<200>/FLA6 ERROR/ 

<200>/TRANS«ITTER FAILED TO STUFF A ZERO/ 

<200>/SWITCH PAC TEST/ 

<200>/ABORT ERROR/ 

<200>/TRANSniTTER ERROR/ 

<200>/HALr DUPLEX TEST/ 

<200>/OUT READY NOT SET/ 

<200>/IN READY NOT SET/ 

<200>/EXPECTED FOUND/ 
<200>/EXPECTE0 FOUND LU-RE6ISTER/ 
<200>/CHARACTER BIT THAT FAILED/ 
<200>/CORRECT CRC BIT THAT FAILED/ 
<200>/EXPECTE0 FOUND SHIFT/ 
<200>/EXPECTE0 FOUND CHARACTER SHIFT/ 
<200>/BL0CK END NOT SET/ 
<200>/RTS DID NOT CLEAR/ 



3,7 

5,2 
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SUBROUTINES 



C 10 



SEQ 0119 



033562 
033564 
033566 
033570 
033572 
033574 
033576 
033600 
033602 
033604 
033606 
033610 
033612 
033614 
033616 
033620 
033622 
033624 
033626 
033630 
033632 
033634 
033636 
033640 
033642 
033644 
033646 
033650 
033652 
033654 
033656 
033660 
033662 
033664 
033666 
033670 
033672 
033674 
033676 
033700 
033702 
033704 
033706 
033710 
033712 
035714 
033716 
033720 
033722 
033724 
033726 
033730 
033732 
033754 
033736 
033740 



000003 

003 
001274 

003 
001272 

003 
001266 
000002 

003 
001274 

002 
001 ?70 
000002 

006 
031230 

002 
001270 
000003 

001 
001462 

001 
001464 

002 
001262 
000003 

001 
001464 

001 
001462 

002 
001262 
000004 

001 
001462 

001 
001464 

003 
001274 

002 
001270 
000004 

001 
001464 

001 
001462 

003 
001274 

002 
001270 
000002 

003 
032006 

002 
001270 
000002 

006 





0T2: 


3 




007 




• BYTE 


3,7 






$REG5 


010 




.BYTE 


3,10 






tREG4 




002 




.BYTE 


V A 

3,2 






$REG2 






DT3: 


2 




017 




.BYTE 


3,17 




$REG5 


002 




.BYTE 


2,2 




* Af A Y 

SREG3 




0^4: 


2 




021 




.BYTE 


6,21 






CALBCC 




002 




.BYTE 


2,2 






SREG3 




DT5 : 


3 




Oil 




.BYTE 


1 ,11 






7 r A A 

ZERO 




Oil 




• BYTE 


1 .11 






ONE 




002 




.BYTE 


2,2 




SREGO 






0T6: 


3 




Oil 




.BYTE 


1 ,11 






ONE 




Oil 




.BYTE 


1 ,11 










002 




A U T C 

.BYTE 


2,2 




SREGO 






ATT. 

DT7: 






Oil 




.BYTE 


1 ,11 






7C BA 

ZcHO 




Oil 




.BYTE 


1 ,11 






One 




A All 

007 




.BYTE 


3,7 




cor r* C 




001 




O WTC 

• OYTt 


•5 i 
C, « 










DT lO: 






Oil 




• BYTE 


1,11 






ONc 




Oil 




.oYIt 


1 11 






7P BA 

ZERO 




007 




• BYTE 


3,7 




SREG5 




A A 4 

001 




.BYTE 


"i 1 
2,1 




S BC ^ T 

»REG3 






mil ■ 


2 




007 




.BYTE 


3,7 






aAG 


2.2 


002 




.BYTE 






SREG3 






DT12: 


2 




004 




.BYTE 


6,4 
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033742 031230 CALBCC 

053744 006 002 .BYTE 

033746 001302 $THP2 



033750 CORHAX : 

000001 .END 



D 10 



SEQ 0120 



CZHCF 


MACYll 


5uAU03<:) Oo-JUL 


-oU Uo 


37 DAT 


CZKCf.PII 08 






roncc 0 


ABASE - 


000000 




QQT 




ACDW1 = 


000000 




QQS 

yyj 




ACDW2 = 


000000 


OCT 


yyf) 




ACPUOP= 


000000 




TO' 




AOCWO = 


000000 


y^c 


OQ7 

yy 1 




ADDW1 = 


000000 


y^c 


OQR 

yyo 




ADDU10= 


000000 


yjc 


1 C\(\7 




ADDU1 1 = 


000000 


yjc 


1 uuo 




ADDU12= 


000000 


QQ? 
yjc 


1 f\t\Q 




ADDU1 3= 


000000 


t5c 


1 nin 

1 V 1 V 




ADDWU: 


000000 


0^? 

yjc 


1 U 1 1 




ADDU1S= 


000000 


OS? 
yjc 






A0DW2 = 


000000 


0^0 

yjc 


000 

TTT 




ADDW3 = 


000000 


yjc 


1 UuU 




ADDWA = 


000000 


0C5 
yjc 


> UU 1 




ADDU5 = 


000000 


yjc 


1 no? 




A00U6 = 


000000 


yjc 


1 fin'^ 




AD0U7 = 


000000 


T Jt 


1 vUH 




AODWS = 


000000 


yjc 


1 nns 




AD0U9 = 


000000 


^JC 


1 fSn^ 

1 UUu 




AOEVCT= 


000000 


QC5 
yjc 


OSR 




AOEVn = 


000000 


OS? 

yjc 


OOZ. 
yyH 


?Cif<LM 


ADRCNT 


0060S7 


CvOv' 


?n7S* 


AOVANC= 


104420 






J r Jr 


AENV = 


000002 


1 M 


OS? 




AENVn = 


000000 


OS? 
yjc 


0^^ 




AFATAL = 


000000 


QS3 
yjc 


OSS 




AMA0ft1= 


000000 


OS? 
yjc 


TOU 




AMA0R2= 


000000 


OS? 
yjc 


▼ OH 




AnADR3= 


000000 


OS? 


OR 7 

TO r 




AnADft<i- 


000000 


OS? 
yjc 


Qon 




AMAHSU 


000000 


OS? 
yjc 


07A 




AnAHS2» 


000000 


OS? 
yjc 


OA? 
toc 




AMAHS 3= 


000000 


OS? 


OftS 
to J 




AnAHSA= 


000000 


OS? 


TOO 




AMSGAD= 


000000 


OS? 
yjc 


TuU 




AMSOLG= 


000000 


OS? 
yjc 


TO 1 




AMSGTYr 


000000 


OS? 


QSL 

T JH 




AH1 YP1= 


000000 


OS? 
yjc 


07S 

Tf 3 




AHTYP2= 


000000 


OS? 


TO J 




AHTYP3= 


000000 


OS? 
yjc 


ORA 

TOO 




AHTYP4= 


000000 


OS? 


TOT 




APASS = 


000000 


OS? 


QS7 

y J f 




APR10R= 


000000 


OS? 
yjc 






APTCSUs 


OOOOAO 


1 7SS 


1 OTU* 


1 RRRf 


APTENV= 


000001 


1 77R 
1 r r 0 


1 OHO 


APTSIZ= 


000200 


1 M7M 




1889« 


APTSPOs 


000100 


1 7fin 

1 f o\j 


1 OHO 


APT. SI 


013716 




?RRQ# 




ASUREG= 


000000 


OS? 


TO J 




ATESTN= 


000000 


OS? 
yjc 


QSA 

T3D 


1 3 iJ WW 


AUDONE 


003354 




1 S11 

1 3 1 1 


AUNIT = 


000000 


952 


959 




AUSTRT 


003126 


U89# 






AUSWR = 


000000 


952 


966 




Ai '0-S 


012236 


1451 


2608# 





E 10 
- USER SYMBOLS 



SEQ 01?^ 



2290 



CZKCF 


HACY11 


3Ga(10^2) 08-JUL 


-80 08 


27 PAGE 


124 


TABLE - 


CZKCF.P11 08 






CROSS REFERENCE 


AVECTU 


000000 


952 


991 








AVECT2= 


000000 


952 


992 


2925* 


2935* 




BASE 


0U134 


2900* 


2911 


4499 


BCCLD 


031232 


4345 


4374 


4422 


4451 


BINURD 


006412 


2132* 


2135* 


2136 


2173* 


6102* 


BITCON 


032010 


5896* 


6097* 


6099* 


6100 


BITO = 


000001 


81 5« 


2397 


2398 






BITOO = 


000001 


805# 


815 








BITOI = 


000002 


804« 


814 








BIT02 = 


000004 


803# 


813 








BIT03 = 


000010 


802« 


812 








BIT04 = 


000020 


801« 


811 








BIT05 = 


000040 


800# 


810 








6IT06 ' 


000100 


799# 


809 








BIT07 = 


000200 


798# 


808 








61T08 ' 


000400 


797# 


807 








BIT09 s 


001000 


796# 


806 




2397 


2398 


BIT1 = 


000002 




1458 


2391 


B1T10 = 


002000 


795# 


2751 




3377 


3422 


B1T11 = 


004000 


794« 


1721 


3343 


3844 


3876 


3926 


3965 


4004 






4645 


4713 


4786 


4885 


4951 


Bin2 = 


010000 


793# 


2682 


2768 


2754 


2772 


BIT13 = 


020000 


792* 


2685 


2697 


BITU = 


040000 


791# 


1703 


2696 


2721 


2772 


BIT15 = 


100000 


790* 


1398 




2398 


2707 


BIT2 = 


000004 


81 3# 


1458 


1599 


BIT3 = 


000010 


812' 


2774 


2781 


4255 


3458 


BIT4 = 


000020 


81 1« 


2381 


2404 


2406 


5920 






5400 


3512 


BITS = 


000040 


81 Of 


2886 


3040 


BIT6 = 


000100 


809« 


2386 


2387 


2776 


3793 


BIT/ = 


000200 


808« 


2387 


2506 


2886 


3430 


B1T8 = 


000400 


807« 


2763 


2765 


2778 


2780 


BIT9 = 


001000 


806# 


2760 


2786 


2789 


2844 


BH 


010631 


2429* 


2732 








BPTVEC= 


000014 


822« 




2859 


2872* 




BRLVL 


013650 


2841 


2851 

W X ' 




BRW 


004360 


1604 


1738f 




4470 


4518 


CALBCC 


031230 


4364 


4393 


4441 


5001 


5031 


5052 


5128 


5171 






5688 


5734 


5936* 


5957 


5939* 


CHAR 


030444 


3877 


3927 


3966 


i AAC 

400? 


4044 


CHARSD 


030556 


5839« 




2137 


2153* 


2171* 


CMRCNT 


006410 


2130* 


2133 


CKSWR 


011340 


1429 


1744 


2236 


2454* 




CKSWRl 


011414 


2466' 


2478 








CKSVR2 


011426 


2469« 












011432 


2471« 




2487 






CKSWRA 


011436 


2472# 


2480 






CKStIRS 


01 1 542 


2455 


2457 


C*»0 1 




CLKX 


001452 


1027* 






4446 


4494 


CLRIO 


031572 


4340 


4369 


4417 


CNIRR 


011154 


1523 


2429* 


1397 


1399 


1401 




002302 


1041 


1275* 


CKiVRT = 


104417 


1520 


1629 


1631 


1633 


1635 



F 10 

USER SYMBOLS SEO 01 



4528 


4576 


4605 


5961* 










6120* 


6122* 


6123 


6125* 


6150* 








2770 
















3481 

4Uh3 

5200 


3534 
5473 


3587 

L^7(\ 

5538 


3640 
5580 


3694 
5676 


3754 

HH 1 U 


3784 
44Q3 


3814 
4570 


3037 
2783 


4216 
4218 


4230 
4285 


4253 
5578 


4283 
5674 


4310 






2717 


4234 


4256 


4306 










3885 


3935 


3974 


4013 


4052 


5539 


5762 


5804 


3565 
3853 
3890 
2786 

COHD 


3618 

4232 
2789 


3671 

4237 
2846 


4129 
4258 


5490 
4308 


4312 


6080 




5230 
5945 
4171 


4S9S 
5251 
5946* 
5812* 


4624 
5300 
5947* 


4682 
5321 
5950 


4750 
5397 
5955* 


4811 
5451 
6168 


4832 
5592 


4980 
5648 


2172 
















4523 


4571 


4600 


6076* 










2534 
2228* 


2271 


2273 


2348 


2469 
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G 10 
USER SVHBOLS 



SEQ 0123 



CONERR 

CONN 

CONTAB 

CONVRT= 

CORMAX 

CR 

CRC.CC: 
CRC16 ' 

CREAM 
CRLF = 
CSR 

CSRMAP 

CTSOLV 
CYCLE 
DAI ASP 
DATACL= 



011107 
010671 
003330 
104416 
033750 
000015 
102010 
120001 

001502 
000200 
010363 
012240 
031762 
011606 
006764 
104413 



DATAHD 


006752 




ODISP = 


177570 




DELAY = 


104411 




DEVTAB 


003342 




DH1 


033224 
033524 




DH10 




DH2 


033245 




DH3 


033303 




DHA 


033341 




Dh5 


033401 




DH6 


033433 




DH7 


033501 




OlSPLA 


001242 




DISPRE 


000174 




OSWR = 


177570 




on 


033550 




DT10 


033702 




oni 


033724 




DT12 


033736 




DT2 


033562 




DT3 


033600 




OTA 


033612 




DT5 


033624 




0T6 


033642 




DT7 


033660 




OZDHC = 




u 


DZWIG = 




u 


E«TVEC= 


000030 




E«1 


032062 




^n^o 


032365 




lm^ 


032570 




im2 


032617 




E«13 


032643 





1518 

2429# 

1527 

U70 

6168« 

730# 
5958# 
4342 
5224 
1040« 

731# 
2429# 
261 0# 
6136« 
1605 
2260* 
2224# 
3653 
4046 
4454 
4798 
5078 
5482 
2259* 

737# 
2222« 
1493 
1072 
6168« 
1075 
1078 
1081 
1084 
1090 
6166# 

922# 

883« 

736# 
1073 
6168« 
6168« 
6168# 
1076 
1079 
1082 
1085 
1088 
1124 
1068 
1068 

825« 
1071 
1095 
1098 
1101 
1104 



2429* 








CDO ' 








1535* 








1526 


22271 


2287 


2630 


1824 


1834 






4371 


4419 


4448 


4496 


5294 


5583 


5679 


5957* 


1396* 


2530* 


2531 


2533* 


1795 


1834 






2634 









1666 
2263 
3384 
3654 
4087 
4501 
4812 
5080 
5487 
2281 
893« 

1540* 
6168« 

6168« 

1087 

1111 

6168« 

1102 

1415* 
1421 
892« 
6168« 



6168« 

noo 

1112 
1091 
1109 
6168« 



6168« 

6168« 

1119 

6168* 

6168* 



2521* 
2285 
3429 
3668 
4088 
4502 
4833 
5091 
5493 
2284* 
922 



1099 
6168* 

1105 

1421* 

921 



1127 
6168* 
1103 
6168* 



6168* 



2288* 

3433 
3712 
4133 
4530 
4851 
5217 
5548 



1108 

1120 
1733* 



1133 
1106 



3494 
3715 
4134 
4531 
4858 
5231 
6103 



1123 
6168* 



6168* 

1121 



4525 
2537 



4573 4602 4650 



4718 



4805 4974 



5025 



3495 
3758 
4173 
4578 
4860 
5252 
6126 



3509 


3547 


3548 


3562 


3600 


3601 


3615 


3788 


3818 


3848 


3879 


3929 


3968 


4007 


4347 


4348 


4376 


4377 


4424 


4425 


4453 


4579 


4607 


4608 


4664 


4666 


4732 


4734 


4895 


4967 


4981 


5002 


5032 


5053 


5071 


5272 


5301 


5322 


5340 


5347 


5349 


5360 



1126 1132 



6168* 



6168* 
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H 10 
USER SYMBOLS 



SEQ 01 2A 



EMU 

Ems 
Em6 

E«17 

EW 

E«20 

E«21 

EM22 

En23 

En2A 

E«25 

E«3 

E«A 

EMS 

EM6 

EM7 

EDM 

ERCTOO 

ERCT01 

ERCT02 

ERCT03 

ERCT04 

ERCT05 

ERCT06 

ERCT07 

ERCT10 

ERCT11 

ERCT12 

ERCT13 

ERCTU 

ERCT15 

ERCT16 

ERCTU 

ERR 

ERRMSG 
ERRPC 
ERRVEC: 
ERTABO 

EXIT = 

EXITER 

f LAG 

FLOAT 

FLTDAT 

FY 

GETQl 
GETOO 
GETSI 



GNS = 

HALTS 
HicIM 
HT 

INCHAR 



032703 
032753 
032774 
033010 
032120 
033054 
033075 
033112 
033135 
033157 
033202 
032163 
032227 
032271 
032321 
032540 
031504 
002304 
002310 
002314 
002320 
002324 
002330 
002334 
002340 
002344 
002350 
002354 
002360 
002364 
002370 
002374 
002400 
003244 
006740 
003322 
000004 
007112 
000205 
007046 
032006 
003156 
032016 
003202 
031356 
031344 
030226 



u 



006770 
006052 
000011 
01^546 



1107 

1110 

1113 

11*6 

1074 

1122 

1125 

1131 

6168« 

6168« 

6168« 

1077 

1080 

1086 

1089 

1092 

4795 

1277# 

1280* 

1283# 

1286« 

1289« 

1292# 

1295* 

1298« 

1301* 

1304« 

1307* 

1310# 

1313# 

1316# 

1319# 

1322# 

1502 

2258* 

1521 

81 8« 
2273 

845« 
2299 
6149« 
1495« 
55&6 
1503* 
4364 
4355 
3498 
4840 
5234 
6127 
2212 
2227 
2243 
2057* 

728# 
2472 



6168« 

61684 

6168» 

6168« 

6168« 

1128 

6168« 

6168« 



6168« 

1083 

6168« 

6168« 

6168« 

4893 



1515# 

2276 

1532* 

1708 

2313* 

2304« 

6168 

1501 

5596 

1507 

4388 

4359 

3502 

4852 

5238 

2215 

2228 

2290* 

2065 

1793 

2500« 



6168« 



616B« 



4960 4964 5209 5214 5598 5602 



1519 
2279# 



2229 

208 1« 
1834 



5606 



5694 6044« 



1709* 


171U 


1714* 






5600 


5604 


5611 


5651 


6153« 


1512 








4615 


4461 


4465 


4538 


4542 


4432 


4436 


4509 


4513 


4586 


3551 


3555 


3604 


3608 


3657 


4861 


4984 


4988 


5005 


5009 


5255 


5259 


5275 


5279 


5304 


2216 


2217 


2218 


2219 


2220 



4619 


4740 


4744 


5999f 




4590 


4672 


4676 


5989# 


4819 


3661 


3718 


3722 


4815 


5035 


5039 


5056 


5060 


5072 


5308 


5325 


5329 


5341 


5350 


2221 


2222 


2223 


2224 


2225 



4836 
5081 
5745f 

2226 



CZHCf MACY11 50A(1052) 08-JUL- 
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INIFLG 
INLP1 
INPUT = 
INRDV 



INTTY 
IOTVEC= 

icncn 

KMCROO 
KHCftOI 

KnCR02 

K«CR03 

KHCROA 

K«CR05 

KnCR06 

KHCR07 

KPtCRIO 

KnCR11 

KPICR12 

KNCR13 

KMCRK 

KMCR15 

tC«CR16 

KMCR17 

KHCSR 

KPICSRH 

KPICTL 

KMPM 

KPIP06 

KIWLVL 

KPWVEC 

<«S100 

KMSId 

KNS103 

KHsm 

KMS105 
KPtSiM 
KHS107 
KNS11U 
KHSin 
KNS112 
KMS113 
KMS1U 

K«sn5 

ICMS116 
KMS200 
KPIS202 



001506 
005766 
10U15 
031066 



013664 
000020 
001470 

011175 
002100 
002110 
002120 
002130 
002140 
002150 
002160 
002170 
002200 
002210 
002220 
002230 
002240 
002250 
002260 
002270 
002066 
002070 
002072 
001472 
002074 

002076 
002060 
002056 
002102 
002112 
002122 
002:32 
002142 
002(52 
002162 
002172 
002202 
002212 
002222 
002232 
002242 
002252 
002262 
002272 
002104 
002114 
002124 
002134 



1045» 
2062« 
2226« 
4089 
5156 
5633 
2651 
82 3« 
1034* 
2904 
1529 
1190* 
1195* 
1200* 
1205* 
1210* 
1215* 
1220* 
1225* 
1230* 
1235* 
1240* 
1245* 
1250* 
1255* 
1260* 
1265* 
1173* 
1174* 
1175* 
1035* 
1176* 
6005* 
1177* 
1170* 
1169* 
1191* 
1196* 
1201* 
1206* 
1211* 
1216* 
1221* 
1226* 
1231* 
1236# 
12411 
1246* 
1251* 
1256* 
1261* 
12661 
1192* 
1197# 
1202* 
1207* 



80 08 


27 PAGE 127 
CROSS REFERENCE 


TABLE — 


I 10 
USER SYMBOLS 












SEO 0125 


1424 
2071 
2570 
4155 
5363 
5699 

CO' c 


1454 


1461* 




















2621 
4174 
5377 
5714 
2688 


2633 
4182 
5382 
5719 
2703 


2641 

4190 

5403 

5908* 

7R80I 


2723 
4896 
5417 


2731 
4909 
5431 


4914 
5436 


5094 
5494 


5108 
5504 


5113 
5512 


5137 
5612 


5151 
5628 


1438 


1563* 


1564 


2521 


2535 


2616* 


2801* 


2807* 


2808* 


2812 


2837 


2903* 



2429* 



1489* 


1504 


1510* 


1539 


1669 


1736 


2351 


2405 


2386* 


2387* 


2391* 


2397* 


2398* 


2404* 


2406* 


2548* 


2550* 


2551* 


2552 












1392 


1646 


2614* 


2628* 


2793* 


2794 


2802 


2804 


2375* 


2381 


2418 


2423 


2552* 


2553* 


2554 


5749 


6006* 
















2392* 


2554* 


2555* 




2559 








1639 


1640* 


2557t 


2558* 








1639* 


1672 


2540* 


2541* 


2557 









2539* 
2549* 



2548 
2550 



5762 5804 



2596 2953* 
5920 5995* 
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J 10 
USER SYMBOLS 



SEQ 0126 



KPS20A 
ICMS205 
KMS206 
KHS207 
ICMS210 

K«s2n 

KMS212 
r«S213 
Kns2u 

KHS215 
ICHS216 
ICHS217 
KHS300 
KHS301 
KHS302 
KHS303 
KHS304 
KHS305 
KHS306 
Kns507 
KMS310 
ICHS311 

Kns3l2 
Kns313 
KHS3U 
ICHS315 
KMS316 
KHS317 
KUTLVL 
KHTVEC 
KM. END 
KM. PUP 
LF 

LIN€ 

LOeiTS 

LOCK 

LOKFLG 

LOLin 

LRC8 = 

LUTyPE= 

HASKX 

HASTEK 

MCSRX 

WATA 

HEPASS 

nCRRPC 

MEftRX 

MEftR? 

nEftR3 

HESDAT 

PieSLD 

«ILK 



002U4 
002154 
002164 
002174 
002204 
002214 
002224 
002234 
002244 
002254 
002264 
002274 
002106 
002116 
002126 
002136 
002146 
002156 
002166 
002176 
002206 
002216 
002226 
002236 
002246 
002256 
002266 
002276 
002064 
002062 
002300 
002100 
000012 
010573 
006056 
0OU44 

001510 
006050 
000200 
*t**** 
001454 
010015 
007745 
011276 
001466 
007620 
010072 
007772 
007645 
007672 
032012 

031530 

001504 



1212# 
1217# 
1222* 
1227# 
1232* 
1237* 
1242* 
1247* 
1252* 
1257* 
1262* 
1267# 
1193* 
1198* 
1203* 
1208* 
1213* 
1218* 
1223* 
1228* 
1233* 
1238* 
1243* 
1248* 
1253* 
1258* 
1263* 
1268* 
1172* 
1171* 
1270* 
1040 

729* 
2429* 
2059* 
1021* 
3224* 
1047* 
2056* 
5956* 

687 
1028* 
2269 
1628 
2151 
1033* 
1627 
2272 
1634 
2429* 
1560 
4296 
5212 
4295 
5691 
1041* 



1641 

1641* 

2612 

1189* 

1828 

2724 

2083# 

1735* 

4336* 

2067 

5928 

2429* 

2429* 

2161 

1587* 

2429* 

2429* 

2429* 

2814 

2429* 

4787 

5287 

4792 

6057* 

1397* 



1642* 

2559* 

2908 

1396 

1834 



1747 
4368* 

2080* 



2446* 



2561* 
2560* 



2562* 
2561 



1463 U73 2S31 2533 2610 2615 2829 2906 2910 



1749 2090* 2267 3059* 
4413* 4445* 4490* 4522* 



3075* 3102* 3118* 
4567* 4599* 



3145* 316«* 320** 



4793 


4886 


4891 


4952 


5362 


5416 


5474 


5479 


4890 


4957 


4961 


5206 


1636 


2529* 


2534« 


2538 



4958 
5484 
5211 



4962 5018 5095 
5545 5682 5692 
5478 5483 5544 



5156 
5698 
5595 



5201 

6151* 

5599 



5207 
5603 
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08:27 PAGE 120 

CROSS REFERENCE TABLE 



IC 10 
USER SYMBOLS 



SEO 0127 



MLOCK 
HNEU 

noou 

MPASSX 
MPFAIL 
MR 

«RESET= 
HSTCLR= 



miTLE 
mSTN 

nvECx 

MV35 
NEXT 



NITCH 

NOACT 

NODEV 

NUM 

OCOR 

OK 
OME 

OUTROt 



PACTOO 
PACTOl 
PACT02 
PACT03 
PACTOL 
PACT05 
PACT06 
PACT07 
PACT10 
PACni 

PAcnz 

PACT13 

PACTU 

PACT15 

PACT16 

PACT17 

PARBIT: 

PERFOR: 

PFTAB 

PIRQ • 

PI ROVE' 

POPRO = 

POP ISP' 

P0P2SP= 

PRIG 

PRIRT* 



00'716 
010017 
010461 
007761 
007562 
007642 
004000 
104410 



001000 
010003 
007753 
010762 
001442 



030256 
010731 
003240 
010323 
030260 

003220 
001464 
030412 



002302 

002306 

002312 

002316 

002322 

002326 

002332 

002336 

002342 

002346 

002352 

002356 

002362 

002366 

002372 

002376 

040000 

004537 

007324 

177772 

000240 

012600 

005726 

022626 

010422 

014136 



1601 
1555 
2429# 
1632 
2347 
1608 
845* 
2221# 
3421 
4002 
4782 
8914r 
2270 
1630 
2429# 
1020# 
3304* 
3872* 
4566* 
5749* 
1440 
1491 
2429# 
3383 
5481 
1505 
1032# 
3482 
4889 
5877 
1276# 
1279# 
1282# 
1285# 
1288# 
1291# 
1294# 
1297* 
1300# 
1303* 
1306* 
1309# 
1312# 
1315* 
1318* 
1321* 
845* 
845* 
2348 
735* 
829* 
840* 
838* 
842* 
2429* 
2896* 



2429* 

2429* 

2671 

2429* 

2364 

2429* 

2353 

3480 

4041 

4884 

1428 

2429* 

2429* 

2702 

2089 

3340* 

3922* 

4642* 

5750* 

2429* 

1513* 

2622 

3428 

5486 

1508* 

6168 

3487 

4956 

5972 



2370* 
2303 



2650 
2902* 



2429* 








2586 








3004 


3C30 


3061 


3104 


3533 


3586 


3639 


3693 


4080 


4123 


4169 


4215 


4947 


5196 


5472 


5536 


2571 









2309 

3374* 

3961* 

4710* 

5751* 

2523 



2951* 
3419* 
4000* 
4780* 
5752* 



2977* 
3478* 
4039* 
4882* 
5754* 



3002* 
3531* 
4078* 
4945* 



3147 
3753 
4282 
5577 



3028* 
3584* 
4121* 
5194* 



3491 


3544 


3597 


3650 


3711 


5547 


5607 


5695 


5757* 


5763 


1531 










3535 


3540 


3588 


3593 


3641 


5205 


5477 


5543 


5777 


5786 


5981 


6018 


6034 


6048 


6065 



3206 
3783 
4338 
5673 



3058* 
3637* 
4167* 
5470* 



4663 
5793 



3646 
5797* 



3258 
3813 
4415 



3101* 
3691* 
4213* 
5534* 



4731 
5835 



3698 
5822 



3282 
3843 
4492 



3144* 
3751* 
4280* 
5575* 



4796 
5851 



3702 
5831 



3306 
3874 
4569 



3203* 
3781* 
4335* 
5671* 



4894 
5892 



3707 
S844 



3342 
3924 
4644 



3256* 
3811* 
4412* 



4965 
5985 



3730 
5848 



3376 
3963 
4712 



3280* 
3841* 
4489* 



5215 
6071 



4791 
5868 
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PRO = 


000000 


752i 


PR1 = 


AAA A / A 

0000 AO 


753# 


PR2 = 


AAA i A A 

000100 


75A# 


PR3 = 


AAA 4 i A 

0001 AO 


755« 


Phs 


000200 


756# 




AAA^/ A 

0Q02A0 


757# 


rKo = 


AAA T An 
000 3UU 


758# 




AAA 7/ A 
000 3<) U 


759# 


PS = 


1 7777^ 


732» 


r>y = 


1 7777A 


735* 




0 1 OUhO 


839# 




AAC7/.fc 
005 hO 


e37# 


oi 1 c Li 0 c — 


AO/. AAA, 


8A1« 


PWRVcC= 


AAA A 3 A 
0000 C*» 


82A« 




AA 1 <C1 1 
00 17 11 


10A8# 


RDCHR : 


1 ft/ /. A5 


19A2 


AM I flu _ 

RDLIN = 


1 A/ / AT 


2015 


ROOCT = 


1 Ay / AA 


2064 


RcSRtu 


OUO'OO 


2286 


RtSvcC= 


AAAAi A 


81 9« 


RcSO? - 


1 A/./. A7 


2220« 


ROfiCLK* 


1 Ai y i ^ 


2223# 




5107 






3283 






3435 






3648 






3931 






4191 






4725 






5157 






5505 






5760 






5866 






6016 


RUM 


AAI cnA 
UU 1 3Uv 


1038* 


SAVACT 


AA1/.7A 


1036* 






1037* 




UU 1 hOw 


1030* 


SAVSP 


0Ui«»30 


1029* 


3AVU> - 


in/. AAA 


2219* 


cruAD 




4081* 


crnoi - 


1 AAA AC 
1 VHHU3 


2218* 




4521 






4086 


c I mr r 




4350 




5226 


bur 1 aW 


ni 1 AAA 
U 1 1 OvU 


2470 






5210 






2131* 




001200 


723* 


STAT 


001450 


1026* 


STAT1 


002050 


1162* 


STAT2 


002052 


1163* 


STAT3 


00205A 


1164* 


STFFCIt 


031672 


6110* 


STfFCL 


031612 


5884 
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2872 


2873 










2874 












2875 












2876 








2877 




864 


866 


868 


870 




733 


1389* 


1598* 


2841* 


2851* 




2300 












2326* 


2327* 


2336* 


2342* 


2361* 


2362* 


1395* 


1645* 










2215* 












2216* 












2217* 












2289* 












2289 










2980 


2376 


2379 


2416 


2421 


2955 


3109 


3120 


3:22 


3153 


3155 


3174 


3309 


3318 


3345 


3347 


3351 


3379 


3445 


3455 


3484 


3489 


3510 


3537 


3669 


3700 


3704 


3709 


3732 


3759 


3940 


3970 


3979 


4009 


4018 


4048 


4222 


4225 


4245 


4248 


4289 


4293 


4729 


4759 


4897 


i A 4 A 

4910 


4915 




5166 


5364 


5378 


5383 


5392 


5404 


5513 


5540 


5549 


5613 


f £. ^A 

5629 


5654 


5775 


5779 


5782 


5788 


5791 


5802 


5870 


5873 


5879 


5899 


5901 


5918 


6020 


6023 


6036 


6039 


6050 


6052 


1398* 


2527* 


2528* 


2535 






1558 


2812* 


2904* 




2898* 




1392* 


1643* 


1646* 


A Af ^ 

2805* 




1519* 


1534 


2096* 


2315 






2248 












4124* 


5860 


5878 


COOT 

5885 


3O0f * 


3074 


3087 


3117 


T i T A 

31 30 


T1 A/ 

3164 


T1 ac 
510) 


4550 


4598 


4627 








4102 


4132 


4148 


5855* 


4533 


4581 


4379 


4427 


4456 


4504 


5296 


5588 


5684 


5928* 






2509* 












6030* 












2155 


2158* 








13v0 


15f f 


OTl A 








2542* 


3037 


4216 


4218 


4230 


4253 


2543* 


3262 


3286 


4306 






2544* 


4234 


4256 






6088* 













SEO 0128 



3006 


5032 


5064 


5066 


5077 


5079 


5176 


5211 


5215 


5229 


5251 


5259 


5581 


5586 


5596 


5424 


3426 


5451 


5542 


3565 


5590 


5595 


5616 


5645 


5789 


5819 


5849 


5881 


5891 


3893 


4057 


4090 


4150 


4156 


4175 


4183 


4501 


4653 


4657 


4661 


4691 


4721 


5095 


5109 


5114 


5125 


5158 


5152 


5418 


5432 


5457 


5446 


5 A 88 


5495 


5645 


5700 


5715 


5720 


5729 


5747 


5820 


5824 


5827 


5835 


5846 


5849 


5970 


5974 


5977 


5985 


5995 


6003 


6067 


6081 


6085 








5894* 


5904* 








4473 


5220 


3238 


4567 


4596 


4444 


4610 


4667 


4755 


4807 


4976 


5027 


4285 


4285 


4510 


5578 


5674 
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STKLBTs 
STRTSy 

STUfOT 

STUFLG 

SV05 

SyfLG 

SUR 

SUREG 
SUO : 

syoo = 

SUOl = 

SW02 = 

SW03 = 

SW04 = 

syo5 = 

sy06 - 

syo7 = 

sy08 = 

sy09 : 

syi = 

syio ' 

syii = 

syi 2 = 

syi 3 = 

syu = 

syi 5 = 

syz = 

sy3 = 
syA 

sys = 

sy6 = 

sy7 = 

sys = 

sy9 = 

SYNC 
SYMLD 
TB1TVE= 
TENP 
T1I«R = 
TKVEC = 
TLAST = 
TPVEC = 
TRAPVE= 
TRTVEC= 
TST1 
TSTIO 

Tsni 

T$T12 
TST13 
TSTU 
TST15 
TST16 
TST17 
TST2 



17V74 
00U46 

032036 
031064 
006100 
0115A4 
001240 

000176 

000001 

000001 

000002 

OOOOOA 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

030276 

031374 

000014 

011234 

104414 

000060 

027706 

000064 

000034 

000014 

014140 

015136 

015512 

015354 

015416 

01SS16 

015616 

015754 

016152 

0U214 



734# 
1025* 
2617 
6159« 
4082* 
2100* 
1393* 
921# 
2305 
884« 
787# 
777# 
776# 
775# 
774# 
773* 
772# 
771* 
770* 
769* 
768* 
786* 
767* 
766* 
765* 
764* 
763* 
762* 
785* 
784* 
783* 
782* 
781* 
780* 
779* 
778* 
3756 
4651 

820* 
2138 
2225* 
827* 
2590 
828* 
826* 
821* 
1697 
3144 
3203 
3256 
3280 
3304 
3340 
3374 
3419 
2951 



U30* 


1433* 


1434 


1436 










4125* 


5881 


5895* 


5905* 


2465* 


2492* 


2498* 




1414* 


1416 


1420* 


1430 


2307 


2334 


2354* 


2594 


1409* 


1420 


t ft t 

2454 


2511 


787 


H34 


1450 


2617 


786 


1606 


2564 


2587 


785 








784 


1553 






783 








782 








781 


2394 






780 








779 


2305 






778 


1745 







2307 

2237 
2242 



3786 
4719 

2402* 
3549 

5738* 



2577 

3201* 

3254* 

3278* 

3302* 

3358* 

3372* 

3417* 

3476* 

2975* 



3816 
4790 

2407* 
5880 



2595 



5846 
4888 

2413* 
5950 



2949* 



1555 1599 



1606 



SEO 0129 
2564 2587* 



1558 
2454 



2825 



1565 
2491* 



1705 1721 



1745 2257 2242 2298 



5767* 
4955 

2425* 
5969 



5204 

2444* 
4008 



5476 5542 



3307* 
4047 



5513* 
4224 



5581 

5516* 
4247 



5582 5677 5678 6010* 

5522* 
4291 
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SEQ 0130 



TSi20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST26 

TS127 

TST3 

TST30 

TST31 

TST32 

TST33 

TST3A 

TST35 

TST36 

TST37 

TST4 

TST40 

TST41 

TST42 

TST43 

TST44 

TST45 

TST46 

TST47 

TST5 

TST50 

TST51 

TST52 

TST53 

TST54 

TST55 

TST56 

TST57 

TST6 

TST60 = 

TST7 

TTST 

TWOSrN= 

TYPDAT 

TYPE = 



TYPMSG 
VEC 

VECKAP 

VECTR 

WHAT 

WHERE 

WHICH 

WRDCMT 

WRKO.F 

XBX 



016334 
016516 
016700 
017062 
017270 
017356 
017446 
017534 
0U262 
017624 
017776 
020112 
020230 
020346 
020464 
020614 
020754 
014334 
021114 
021342 
021536 
022052 
022366 
022702 
023216 
023454 
014426 
023712 
024244 
024446 
025546 
026746 
027200 
027316 
027706 
014566 
•*•*•* u 

014726 
004146 
010000 
006754 
104401 



006654 
010401 
013400 
014132 
005770 
006054 
013372 
006406 
006742 
006542 



3478 
3531 
3584 
3637 
5691 
3751 
3781 
3811 
2977 
3841 
3872 
3922 
3961 
4000 
4039 
4078 
4121 
3002 
4167 
4213 
4280 
4335 
4412 
4489 
4566 
4642 
3028 
4710 
4780 
4882 
4945 
5194 
5470 
5534 
5575 
3058 
5671 
3101 
1602* 
845« 
2264 
1428 
1632 
2046 
2278 
2670 
2262 
2429# 
2813 
2895* 
2055* 
2058* 
2631 
2129. 
2277 
2238 



3529# 
3582« 
3635# 
3689# 
3749# 
3779# 
3809« 
3839f 
3000» 
3870# 
3920# 
3959# 
3998# 
4037# 
4076# 
4119# 
4165« 
3026# 
4211# 
4278# 
4333# 
441 0« 
4487# 
4564# 
46401 
4708# 
3056# 
4778# 
48801 
494 3# 
5192# 
5468« 
5532# 
5573* 
5669* 
3099* 

3142* 
1604* 

2282 

1440 

1634 

2062 

2283 

2679 

2265# 

2642 

2825* 

2901* 

2063* 

2072 

2821* 

2162* 

2280# 

2240 



5738 



1699* 

2285* 

1462 

1798 

2069 

2347 

2686 



2920 
2082* 
2170# 
2242« 



1517 


1522 


1528 


1555 


1949 


1955 


1960 


1964 


2070 


2121 


2161 


2212* 


2363 


2468 


2471 


2523 


2693 


2701 


2713 


2814 


2926* 


2934# 







1560 
1969 
2265 
2569 



1601 
1970 
2266 
2586 



1608 
1972 
2269 
2592 



1627 
1975 
2270 
2629 



1628 
1979 
2272 
2649 



1630 
2044 
2274 
2663 



CZKCf 


HACY11 


3 


CZKCf.PIl 08- 


XCSR 


00410^ 




XERR 


004126 




XHEAO 


010077 




XPASS 


004120 




XPOLV 


031226 




XSTATO 


011206 




XTSTN 


007120 




XVEC 


004112 




ZERO 


001462 




SAPTHO 


002034 




SASTATs 


t**t** 


U 


SATYC 


004722 




SATY1 


004676 




$ATY3 


004704 




SATY4 


004714 




SAUTOe 


001234 




(BASE 


001372 




SBDADR 


001222 




SBDOAT 


001226 




SCDW1 


001376 




SCDW2 


001400 




tCHARC 


004672 




SCKSyR: 


•••••» 


u 


SCHTAG 


001200 




$CH1 = 


000006 




tCH2 = 


M A A A 4 t 

000014 




$C«3 = 


000006 




$CW*i = 


AAAAAC 

00000? 




SCNTLG 


005534 




SCNTLU 


005527 




tCOD = 


••*••« 


u 


SCPUOP 


001344 




$CRAP = 


177777 
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SEQ 0131 



SCRLF 

SDDWO 

S0DW1 

SDOWIO 

SODWU 

tDDWl2 

tODWl3 

SODWU 

S0DW15 

SDDW2 

U>0U5 

SD0W4 



001313 
001402 
001404 
001426 
001430 
001432 
001434 
001436 
001440 
001406 
001410 
001412 



1629 
1635 
1462 
1633 
4342* 
5224* 
1471 
2271 
1631 
103l# 
1144 
1868 
1839 
1837# 
1783 
1840« 
91 8« 
993# 
91 3i 
91 5# 
995# 
996« 
1800* 
2215 
901 # 
933# 
933# 
931# 
939# 
1990# 
1964 
687 
967# 
If 
3045* 
3246 
3367* 
3622# 
3801 
3954# 
4152« 
4401 
4703* 
5455# 
946f 
997i 
998» 
1007* 
1008# 
1009« 
lOIOt 
1011* 
1012# 
999# 
1000# 
1001« 



1667* 

1676# 

2429* 

1673* 

4371 • 

5294* 

2429# 

2316* 

1670* 

6168 

1150# 

1883 

1841« 

1838« 

2293 

2900 



2897 



4419* 4448* 4496* 
5583* 5679« 5944 



2938* 


2941 


2944# 


2964# 


3048 


305 1# 


3088« 


3091 


3249* 


32671 


3270 


3273* 


3405# 


3408 


3412« 


34631 


3625 


36304 


3675* 


3678 


38041 


3828f 


3831 


38341 


3987# 


3990 


3993* 


4026f 


4155 


4160# 


4199« 


4202 


4405« 


4475« 


4478 


4482« 


4765* 


4768 


4773# 


4868« 


5458 


5463* 


5521* 


5524 


1799 


1834 


1969 


1989 


2905 









4525« 4573* 4602« 4650* 4718* 4805* 4974* 5025* 
5946 5954« 



1810* 


1817 


1826* 


1831* 




934# 


935# 


936« 


937t 


938« 


934# 


935# 


936« 


937# 


938« 


933 






94 3« 




940« 


941 « 


942« 


944« 


1989« 











2967 

309441 

3291* 

3466 

3684* 

3858« 

4029 

4206« 

45521 

4871 

5527* 

2049 



939# 
939* 



2970* 

3131* 

3294 

3471* 

3738* 

3861 

4032* 

4267* 

4555 

4875* 

5558* 

2070 



2989* 

3134 

3297* 

3516* 

3741 

3965* 

4065* 

4270 

4559* 

4927* 

5561 

2121 



2992 


2995* 


3015* 


3018 


3021* 


3137* 


3190* 


3193 


3196* 


3243* 


3326* 


3329 


3333* 


3360* 


3363 


3519 


3524* 


3569* 


3572 


3577* 


3744* 


3768* 


3771 


3774* 


3798* 


3909* 


3912 


3915* 


3948* 


3951 


4068 


4071* 


4106* 


4109 


4114* 


4273* 


4321* 


4324 


4328* 


4398* 


4629* 


4632 


4635* 


4697* 


4700 


4930 


4938* 


5175* 


5178 


5187* 


5568* 


5655* 


5658 


5fc6^* 


2629 


2265 


2266 


2274 


2569 
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(ooys 


OOUU 


1002* 








S0Dy6 


00U16 


1003* 








SDDU7 


00U20 


1004# 










0CU22 

WW 1 ^ b b 


1005# 








$DCU9 


001424 


1006« 








tOEVCT 


001326 


958* 








soEvn 


001374 


994# 


0OA1 


1658 


1664* 


iDOAGN 


004100 


1644 




SEND AD 


004070 


877 


1 Z.?^ 
1 H^O 


1660* 


2296 


SENDCT 


004054 


1655# 




1443 


1445 


SENV 


001336 


963* 




SENVn 


001337 


964* 


1 ••••0 


1780 


1785 


SEOP 


003662 


1623* 


3D' 1 






SEOPCT 


004046 


1652* 




1626* 


1688 


SERFL6 


001203 


904 # 


1 TO/.* 


SERMAX 


001215 


Ai Ail 

910* 








(ERROR 


006512 


867 




1647* 


1696* 


SERRPC 


001216 




1403* 


SERRTB 


001512 


1065* 


cc5 > 


1678 


2304* 


$ERTTL 


001212 


AAA M 

908* 


1 AXR 

1 0 jO 


SETABL 


001336 


962* 


1 1 JO 






IE TEND 


001442 


i A i C A 






SFATAL 


001320 




1 o» ' 


1868 


1877* 


SFFLG 


005142 


i837* 


1 0*»U" 


$F ILLC 


001256 




1 BHT 


1834 




SFILLS 


001255 


928* 


1 O J** 






tGDADR 


001220 










SGDDAT 


001224 


91 4# 








$GET42 


004060 


165r* 








SGTSUR= 


••*••• y 


Oil/ 








SHD = 


000000 


697 








SHIBTS 


002034 




cMHOII 






SHIOCT 


005722 


2057* 


1726 


1728* 


SICNT 


001204 


905* 


1 1 Cj 


SILLUP 


007316 


2326 




2366* 




(INPUT 


005724 


2053* 


333A 






SINTAG 


001235 


ai OA 
y 1 ym 




2292 




SITEW 


001214 


Qf\Qm 




1989 


SLf 


001314 


O/ 7 # 


1 O J** 


1979 


SLFLG 


005141 


i 07tt A 
1 O'O* 




1605* 


1609 


SLPADR 


001206 


▼Oo* 


1 ■•113 


KPERR 


001210 










SMADR1 


001350 


AO Ail 

980* 








SMA0R2 


001354 


9B4# 








SIUDR3 


001360 


98 f* 








SMAORA 


001 364 


990* 




1156 


1731 


MAIL 


001316 


AC V a 
955* 


1 1 S3 


SMAHST 


001346 


A7> Jl 

yrkm 


3R00 






tllAMS2 


001352 


982* 








IMAMS 3 


001356 


AOC Jl 

985* 








SMAMS4 


001362 


oo fi Jl 








SMBADR 


002036 


1 ! Jew 




1879* 


1883* 


SMFLG 


005140 


1838* 


1844 


SMNEU 


005552 


1993* 


2471 


1857 




SMSCAO 


001332 


960* 


1854* 




iMsao 


001334 


961* 


1859* 
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TABLE " USER SYMBOLS 



SEQ 0132 



1778 
1848 



1846 1870 2290 2456 



1740 2247* 2261 2275* 2349* 



2350* 



1739 2309* 2311 2585* 2595* 2597 



C2KCF 


HACY11 


3GA(10S2) 


08-JUL 


-80 08 


27 PAGE 


135 




CZKff.PII 08-JUL-80 08:24 




CROSS REFERENCE 


TABLE - 




001316 

WW ■ V 1 V 




954« 


1852 


1860* 


1872 


i876« 




005541 




1991# 


2468 








SHTYPl 


001347 




975f 












001353 

WV \ J J J 




983« 










SI<tTYP3 


001357 




986' 










SP<tTYP4 


001363 

W W 1 w -J 




989t 












004362 




1729 


1 739* 






AC T m 

2953* 


IN = 


000057 




1« 


2938 


2944 


2946 






3005# 


3015 


3021 


3023 


TATA 

3030 








3096 


51 OA 


3105* 


3131 


Ti T7 

31 37 








3243 


3249 


3251 


3258 


32 5t* 








3306 


3307* 


3326 


3333 


3335 








3412 




3421 


3422* 


tt ^T 

3463 








3534# 


3569 


3577 


3579 


3586 








3686 


3693 


3694* 


3738 


374*» 








3798 


3804 


3806 


3813 


3814* 








3874 


3875f 


3909 


3015 


TQ1 7 

57l r 








3993 


3995 


4002 


4003* 


4026 








4081« 


i 4 A^ 

4106 


4114 


4116 


4123 








4208 


421 5 


4216* 


4267 










4398 


J J AC 

4405 


4407 


4415 


44 10* 








4569 


45 fO* 


4629 


4635 


LL.X'J 

403f 








4773 


4r r5 


4782 


4783* 


4000 








49481 




5187 


5189 


5196 








5529 


5536 


5537* 


5558 


5568 








5738« 










SNULL 


001254 




927# 


1805 


1834 




TAC c m 

5055* 


SNWTST= 


000000 




2948» 


2974* 


2999* 


3025* 




3416« 


3*1 f^m 


3528* 


3581* 










3997# 


^030" 


4075* 


4118* 


•» 1 O** 








4777# 


T* 


4942* 


5191* 


C/.i^7< 


(OVER 


004334 




1701 


1 f U4 


1715 


1727 


1 ' 3 J* 


(PASS 


001324 




957# 


l0£>* 


1637 


1649* 


1 ACn* 


SPASTH 


002042 




1154# 










SPURON 


007126 




865 


1 3¥1 


2326* 


2361 




SPWRMG 


007312 




2364# 










SPyRUP 


007200 




2336 


c3h^» 








SOUES 


001312 




94 5« 


1 ttT/. 

1o3h 


1972 


1989 


cU*iO 


SRDCHR 


005144 




1909# 


2«15 








SROOEC: 


••••*• 


U 


2218 










SRDLIN 


005264 




1937# 


CClO 








SRDOCT 


005564 




201 0« 


<j£ 1 f 








SRDS2 = 


000007 




19301 










SREGAD 


001260 




931« 






6168 




SRE60 


001262 




933f 


< iU5* 


2110 




$REG1 


001264 




934* 


1 


1557 


2104* 


t \ 1 1 


SREG2 


001266 




935« 


c iU3* 


2112 


6168 




$REG3 


001270 




936* 




2113 


6168 




SREG4 


001272 




937* 


0 1 A1 * 

2101 • 


2114 


6168 




SREG5 


001274 




938* 


01 AAa 

2100* 


2115 


6168 




(RTNAO 


004102 




1666* 










»R2A = 


•••••• 


U 


2218 








7Q7Q* 

C 7 1 T# 


SS 


000061 


1* 


Ct5 I 


2953* 


2977 








3144 


3148* 


3203 


3207* 


3256 








3377* 


3419 


3422* 


3478 


3481* 








3751 


3754* 


3781 


3784* 


3811 



0 11 

USER SYMBOLS SEO 0135 



70At 
ctOh 




)07? 

C7f C 




t TOT 


c tt:> 


7997 

C t7» 


jwU*» 


jU J 1 • 


JWH 5 






JvO 1 




j\JOO 


Xn9L 
jvtH 




^1 ^7 

J 1 H f 


J 1 HOW 


J 1 7U 


J \ TO 


J 1 TO 


JC wo 


5?07# 

JC\J< • 


3CW 1 










X791 


X?97 


TT 


3342 


3343* 


3360 


3367 


3369 


3376 


3577* 


3405 


3471 


3473 


3480 


3481* 


3516 


3524 


3526 


3533 


3587* 


3622 


3630 


3632 


3639 


3640* 


3675 


3684 


3746 


3753 


3754* 


3768 


3774 


5776 


3783 


3784* 


3828 


3834 


3836 


3843 


3844* 


3858 


3865 


3867 


3924 


3925* 


3948 


3954 


3956 


3963 


3964* 


3987 


4032 


4034 


4041 


4042* 


4065 


4071 


4073 


4080 


4124* 


4152 


4160 


4162 


4169 


4170* 


4199 


4206 


4275 


4282 


4283* 


4321 


4328 


4330 


4338 


4339* 


4475 


4482 


4484 


4492 


4493* 


4552 


4559 


4561 


4644 


4645* 


4697 


4703 


4705 


4712 


4713* 


4765 


4875 


4877 


4884 


4885* 


4927 


4938 


4940 


4947 


5197* 


5455 


5463 


5465 


5472 


5473* 


5521 


5527 


5570 


5577 


5578* 


5655 


5664 


5666 


5673 


5674* 



3098* 
3688* 
4210* 
5531* 


3141* 
5748* 
4277* 
5572* 


3200* 
3778* 
4552* 
5668* 


3255* 
5808* 
4409* 


5277* 
5838* 
4486* 


5301* 
3869* 
4563* 


3357* 
5919* 
4659* 


3571* 
5958* 
4707* 


1667 


1675 


1725 


1740 


2545« 








2049 


2069 


2592 


2664 


2680 


2694 


2714 




3002 
3259* 
3531 
3814* 


3005* 
3280 
35341 
384: 


3028 
3283* 
3584 
3844* 


5051* 
3304 
3587* 
5872 


3058 
3307* 
3637 
3875* 


3062* 
3340 
3640* 
5922 


3101 
5543* 
3691 
3925* 


5105* 
5574 
3694* 
3961 



CZKCF 


MACY11 


30A(1052) 08-JUL 


-80 08 


27 PAGE 
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CROSS REFERENCf 






3964ir 


4000 


WW 


4039 






A?80 


4283« 


J J J 


A339# 






A71 3f 


4780 


A783# 

•f f W JIV 


A887 






5575 


5578* 


5671 


5674# 






U 2218 

U C C < w 








SSAVR6 


007322 


2335* 


2343 


2344* 


2345* 


SSCOPE 


00413a 


863 


1695* 


2869 

WW ' 




SSETUP= 


ocoooo 


1648 


1696 


1898 


1995 


SSVLAD 


004316 

W W~ ^ 1 w 


1712 


1730* 






tSVPC = 


000040 


875« 


880 






SSUR = 


1 64000 


If 


697 


944 


945 






1703 


1715 


'717 


1718 






3027 


3057 


3100 


3143 






3583 


3636 


3690 


3750 






4120 


4166 


4212 


4279 






5193 


5469 


5533 


5574 


SSyREG 


001340 


965« 


1409 






tSURMK= 


000000 


1692 








tTESTN 


001322 


956f 


1731* 






STIMES 


001310 


944« 


1648* 


1720* 


1726 


ST KB 


001246 


924« 


1702 


1896 


1913 


STKS 


001244 


923# 


1700 


1896 


1911 


STftPO 


001276 


939« 


1464* 


2431 


2837* 






5934* 


5948* 


5968* 


5979* 


tTPV>1 


001300 


940« 


1465* 


2433 


5125* 






5449* 


5450 


5645* 


5646* 






5863* 


5890* 


5897* 


5935* 


ftTNP2 


001302 


941# 


1467* 


1488* 


1515 






5127* 


5128 


5154* 


5155* 






5451 


5631* 


5632* 


5647* 






6168 








STNP3 


001 304 


942' 


1468* 


2437 


2637 


STflPA 


001306 


943« 


1469* 


2439 


2620* 


STN = 


000060 


1« 


697 


2948 


29S0« 






3100# 


3141 


3143# 


3200 






3371 


3373# 


3416 


3418# 






3690# 


3748 


3750* 


3778 






3958 


3960# 


3997 


3999f 






421 2« 


4277 


4279# 


4332 






4707 


4709# 


4777 


4779# 






5533« 


5572 


5S74# 


5668 


STPB 


001252 


926« 


1823* 


1834 


2241* 


STPFIG 


001257 


930» 


1772 


1834 




STPS 


0012S0 


925« 


1821 


1834 


2239 


STRAP 


006414 


869 


2189« 






STRAP2 


006436 


2200« 


2211 






STRP - 


000021 


2204# 


221 3# 


2215 


2216* 






2226« 


22270 


2228# 


2229« 


STRPAO 


006450 


2194 


2211* 






STSTH 


002040 


1153# 








STSTHM 


001202 


90 3# 


1404* 


1688 


1730* 






2976* 


3001* 


3027* 


3057* 






3477* 


3530* 


3583* 


3636* 






4038* 


4077* 


4120* 


4166* 






4881* 


4944* 


5193* 


5469* 


STTTIN 


005520 


1939 


1940 


1952 


1970 
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4042« 


4078 


4081# 


4121 


4124* 


4412 


<«416« 


4489 


4493* 


4566 


4885« 


4945 


4948« 


5194 


5197* 


2368* 










1620 


1648 


1659 


1665 


1667 


1719 


1720 


1721 


1733 


1739 


3202 


3255 


3279 


3303 


3339 


3780 


3810 


9 A i A 

3840 


3871 


3921 


4334 


J i 4 4 

441 1 


4488 


y c X C 

4565 


y z y 4 

4641 


5670 










1 729* 


1 739 








1919 


2458 


^ i ^ A 

2460 


^ r A ^ 

2502 


2882 


1917 


2500 


^ 0 a A 

2880 


^ 4 y ^ 

6142 




2838* 


5772* 


5784* 


5818* 


5829* 


6014* 


6025* 


6064* 


6069* 




5126* 


5127 


5168* 


5169* 


5170 


5647 


5731 * 


5732* 


5733 


5816* 


5940* 


5966* 


5982 






1 524* 


2435 


2625 


2628 


^ ^ y A ^ 

2740* 


51 70* 


51 r 1 


C T AA^ 

5380* 


C T O 4 A 

5381* 


5396* 




571 7« 


5718* 


5735* 


c wy 

5734 


2640 


2645 


2648 


2721 


2730 


2632* 


2823 


C AAA^ 

5800* 


5806* 




2974 


2976f 


2999 


3001* 


3025 


3202f 


3253 


32551 


icrJ 


3279* 


3475 


3477* 


3528 


3530# 


3S81 


3780# 


3808 


3810# 


3838 


3840* 


4036 


4038f 


4075 


4077# 


4118 


433Af 




y y 1 1 jf 


A4Bo 


AABB* 


4879 


4881 « 


4942 


4944* 


5191 


5670# 










2505* 


2885* 








2503 


2883 








22i7f 


221 8# 


2219* 


2220M 


2221* 


2230f 










1731 


1733 


1740 


2318 


2372 


3100* 


3143* 


3202* 


3255* 


3279* 


3690* 


3750* 


3780* 


3810* 


3840* 


4212* 


t,27<)* 


4354* 


4411* 


4488* 


5533* 


5574* 


5670* 






1984 


1988# 









SEO 0154 



4167 


4170* 


4213 


4216* 


4570* 


4642 


4645* 


4710 


5470 


5473* 


5554 


5557* 


1689 


1690 


1691 


1692 


2365 


2950 


2976 


3001 


3373 


3418 


3477 


3530 


3960 


3999 


4038 


4077 


4709 


4779 


4881 


4944 


5864* 


5875* 


5916* 


5922* 


53«^4* 


5395* 


5396 


5448* 


5832 


5842* 


5845 


5859* 


4912* 


4913* 


5111* 


5112* 


r Y A^ 

5397 


r y "9 y — 

5434* 


5435* 


5A50* 


6094* 


A 4 Ay ^ 

6104* 


6117* 


6130* 


2735 


2738 






3027* 


3055 


3057* 


3098 


3301 


3303* 


3337 


33391 


3583* 


3634 


3636* 


3688 


3869 


3871* 


3919 


3921* 


4120* 


4164 


4166* 


4210 


4563 


4565* 


4639 


4641* 


5193* 


5467 


5469* 


5531 


2222* 


2223* 


22241 


2225* 


2574 


2581 


2583 


29S0* 


3303* 


3339* 


3373* 


5418* 


3871* 


3921* 


3960* 


3999* 


4565* 


4641* 


4709* 


4779« 
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F 11 
USER SYMBOLS 



SEQ 0135 



»TYPBN= 

lTypOS= 

»TYPE 

STYPEC 

tTYPEX 

$TYPOC= 

tUNlT 

SUNITH 

tUSUR 

tVECTI 

SVECT2 

tXTSTR 

tY 

tSGET4= 
S40CAT= 



.ADVAN 

.BEGIN 

.CNVRT 

.CONVR 

.DATAC 

.DELAY 

.HSTCL 

,RES05 

.ROHCL 

.SAV05 

.SC0P1 

.START 

•TIMER 

.tASTA= 

.»X = 



• ••••• 

004414 
004626 
004674 
•••••• \) 

001330 
002044 
001342 
001 366 
001370 
004174 
000000 
000000 
•••••t y 

033750 



006060 
003464 
006170 
006164 
007446 
007332 
007362 
006132 
007400 
006072 
004364 
002402 
007512 
«**••• u 

002034 



2213 
2213 
1772# 
1802 
1827 
2213 
959« 
1155# 
966« 
991 # 
992# 
1698 
1# 
1659# 
1703 
857f 
1035# 
1193* 
1210i 
1226« 
1242« 
1258« 
1667 
2429# 
2884 
2089f 
1577f 
2122# 
2121# 
2224 
2222 
2221 
2110# 
2223 
2096* 
1744« 
887 
2225 
1838 
1140« 



1865 
1809 
1829 



2901 

1706* 
1157# 



859 
1036« 
1195# 
1211# 
1227# 
1243« 
1260« 
1739 
244 5« 
3038 
2229 

2228 

2227 

2401« 

2374# 

2385# 

2220 

2590« 

2219 

2218 

1389f 

241 2# 

1841 

1145 



2204 
1816 
1832« 



2902 



862« 
1037# 
1196# 
1212# 
1228# 
1245# 
126U 
1740 
244 7« 
4217 



2212 
182U 



875 
1046* 
1197# 
1213# 
1230« 
1246« 
1262« 
1834 
2501 
4231 



1405 2488 



1822 



876# 
11341 
1198ff 
12151 
1231f 
1247# 
1263f 
1886« 
2504 
4254 



878« 


880« 


882« 


886« 


890« 


900# 


948 


1034f 


1140 


1141# 


1143# 


1145* 


1188* 


1190* 


1191# 


1192* 


1200« 


1201i 


1202# 


1203* 


1205# 


1206« 


1207f 


1208* 


1216# 


12171 


1218« 


1220* 


1221# 


1222* 


1223# 


1225* 


1232« 


1233# 


1235f 


1236« 


1237# 


1238« 


1240# 


1241* 


1248« 


12501 


1251# 


1252* 


1253# 


1255# 


1256# 


1257* 


126Sf 


1266« 


1267* 


1268f 


1432 


1442 


1549# 


1562 


1896 


1988« 


1989 


1995* 


2049 


2338 


2567 


2410* 


2525 


2618 


2659 


2767 


2771 


2817 


2848 


2881 


4284 


4311 


4862 


5082 


5351 


6168« 
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COPWEN 830« 















3073 




C nnUn 






t TO' 








*.51 5 






3393 


3403 


3442 


3452 






3620 


3659 


3663 


3673 


3720 


3724 




^ y ~ u 


3977 


3985 


4016 


4024 


4055 


4063 




43S7 

^ J y » 


4361 


4386 


4390 


4434 


4438 


4463 




^ U W 1 


4674 


4678 


4742 


4746 


4817 


4821 




5007 


5011 


5037 


5041 


5058 


5062 


5074 




5240 


5257 


5261 


5277 


5281 


5306 


5310 




5424 


5444 


5453 


5492 


5501 


5511 


5519 




5924 














F^r APF 


8301 
















830f 
















830* 














HIT 


8'«3' 














KREND 


1« 


1610 












KMFRNT 


If 


687 












MULT 


830« 












3098 


NEWT ST 


830* 


2948 


2974 


2999 


3025 


3055 




3475 


3528 


3581 


3634 


3688 


3748 


3778 




41 18 


4164 


4210 


4277 


4332 


4409 


4486 




5531 


5572 


5668 










POP 


830f 


1880 


1881 

1 WW ■ 


2038 


2354 


2355 


2928 


PUSH 


830« 


1841 


1843 


1864 


2012 


2328 


2334 


REPORT 


If 


830f 












SCOPE 


725f 


2949 


2975 


3000 


3026 


3056 


3099 


3476 


3529 


3582 


3635 


3689 


3749 


3779 




4119 


4165 


4211 


4278 


4333 


4410 


4487 




5532 


5573 


5669 










SF TPRI 


830f 












2220 


SETTRA 


2204f 

2229 


2215 


2216 


2217 


2218 


2219 


SETUP 


830f 














SKIP 


830f 














SLASH 


830# 














SPACE 


830f 










1157 


1159 


STARS 


830f 


873 


896 


948 


951 




1998 


2183 


2324 


2340 


2948 


2974 


2999 




3337 


3371 


3416 


3475 


3528 


3581 


5654 




3997 


4036 


4075 


4118 


4164 


4210 


4277 




4942 


5191 


5467 


5531 


5572 


5666 




SURSU 


830f 














TRMTRP 


2204f 














TVPBIN 


830f 














TVPOEC 


830f 














TVPNAn 


830« 














TVPNUn 


830f 














TYPOCS 


830f 














TYPOCT 


830f 














TYPTXT 


830f 














(ABORT 


687f 














lAUTO 


If 


1474 












(BCC 


68 7f 


4321 


4398 


4475 


4552 






S6INCR 


687f 


4629 


4697 












687ff 


3675 
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3116 


3129 


3163 


3184 


3219 


5237 


3265 


3?89 


3461 


3500 


3504 


3514 


3553 


3557 


3567 


3606 


3766 


3796 


3826 


3856 


3888 


3^00 


3907 


3938 


4096 


4U2 


4181 


4189 


4197 


4243 


4265 


4317 


4467 


4511 


4515 


4540 


4544 


4588 


4592 


461 7 


4838 


4842 


4854 


4863 


4903 


4922 


4986 


4990 


5083 


5101 


5121 


5130 


5144 


5164 


5173 


5236 


5327 


5331 


5343 


5352 


5370 


5390 


5399 


5410 


5556 


5619 


5641 


5650 


5706 


5727 


5736 


5808 


3141 


3200 


3253 


3277 


3301 


3337 


3371 


3416 


3808 


3838 


3869 


3919 


3958 


3997 


4036 


4075 


4563 


4639 


4707 


4777 


4879 


4942 


5191 


5467 


2891 
















5142 


5201 


3254 


5278 


3502 


W 9 CI 

3338 


3372 


541 7 


3809 


3839 


3870 


5920 


3959 


5998 


4037 


4076 


4564 


4640 


4708 


4778 


4880 


4943 


5192 


5468 


2221 


nil 


2223 


2224 


2225 


2226 


nil 


2228 


1146 


1618 


1685 


1757 


1836 


1895 


1901 


1950 


5025 


5055 


3098 


5141 


3200 


5255 


5277 


5501 


5688 


5748 


3778 


3808 


5858 


5869 


5919 


5958 


4552 


4409 


4486 


4565 


4659 


4707 


4,777 


4879 
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CZHCf .P11 

tSUf FE 
SCDATA 
SCLOCK 
$CO«P 

SCRC 
SCRCSH 
$CYCLE 
»t«PTY 
SEOP 
KRTBL 
SFINI 
SFLAG 
(FLOAT 
tGETPA 
»HALF 
SHEAOE 
SINACT 
SINIT 
SLINE1 
SLU1 
SLU12 
»LU17 
tMARHl 
SMARK 
MATCH 
SHOCK 
MODEM 
MSG 
SmJLT 
SPASEN 
$PATTE 
tPFAlL 
MOQI 
SQUEST 
SRANCL 
SRCLK 



SRCRC 

SREC 

SROVAR 

SSCAOO 

SSCADI 

SS1P«C 

SSI MAC 

SSOFTC 



1« 
687# 
687f 
1« 
4193 
687f 
687f 
If 
687# 
If 
If 
If 
687f 
687f 
1f 
687f 
Iff 
687f 
687f 
687f 
687f 
687f 
687f 
If 
687f 
687f 
If 
687f 
If 
687f 
If 
687f 
If 
687f 
If 
If 
If 
3120 
3347 
3537 
3819 
4136 
4721 
5166 
5549 
5791 
5970 
6083 
687f 
687f 
If 
If 
If 
If 
68 "'f 
If 



2441 
5558 
3291 
687f 
4917 
4340 
4645 
2512 
5455 
1610 
1067 
57W 

3149 

5521 
697 
3738 

3131 
2938 
3045 
3088 

4152 
4906 

4199 
2429 

1624 

4065 

2319 

5989 

2621 

2373 

2376 

3122 

3351 

3542 

3849 

4175 

4725 

5364 

5613 

5802 

5974 

4868 
3858 
1017 
1696 
1735 
5928 

2449 
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TABLE 


MACRO 


NAMES 


5655 














3883 
5116 
4369 

/.71 T 
•i 1 1 J 


3895 
5159 
4417 


5385 
4446 


5439 
4494 


3942 
5636 
4523 


3972 
5722 
4571 


3981 
4600 


3169 


3208 


3225 










3768 


3798 


3828 










2964 


2989 


3015 










5104 


5147 


5373 


5427 


5624 


5710 
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4106 

5999 
2633 

2379 
3153 
3379 
3563 
3881 
4183 
4729 
5378 
5629 
5820 
5977 



3909 



2641 


2723 


2731 


2416 


2421 


2955 


3155 


3174 


3176 


3381 


3386 


3396 


3590 


3595 


3616 


3891 


3893 


3931 


4191 


4222 


4225 


4759 


4897 


4910 


5383 


5392 


5404 


5634 


5643 


5700 


5824 


5827 


5833 


5983 


5993 


6003 


3948 


3987 


4026 



2980 
3211 
3424 
3643 
3940 
4245 
4915 
5418 
5715 
5846 
6016 



4011 



4020 4050 4059 4177 



4185 



3006 


3032 


3064 


3213 


3229 


3231 


3426 


3431 


3435 


3648 


3669 


3700 


3970 


3979 


4009 


4248 


4289 


4293 


4924 


5095 


5109 


5432 


5437 


5446 


5720 


572« 


5747 


5849 


5866 


5870 


6020 


6023 


6036 



3066 


3077 


3079 


3107 


3259 


3283 


3509 


3318 


3445 


3455 


3484 


3489 


3704 


3709 


5752 


3759 


4018 


4048 


4057 


4090 


4300 


4653 


4657 


4661 


5114 


5123 


5138 


5152 


5488 


5495 


5505 


5513 


5760 


5775 


5779 


5782 


5873 


5879 


5899 


5901 


6039 


6050 


6052 


6067 



3109 
3545 
5510 
3789 
4130 
4691 
5157 
5540 
5788 
5918 
6081 
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roncc 


DC C CDCkirC 


TARL F 


tSTUFF 


687f 














ssypAc 


<)87# 


3243 


3267 










ST CHAR 


687« 


4786 


4885 










tTCRC 


687« 


4765 


4927 


SI 75 








tTRANy 


687# 


4805 


4974 


5025 


Sec** 


S?9Z. 




STRAN1 


687f 


3326 


3360 










STSIH 


1# 


2946 


2972 


2997 






3096 




3473 


3526 


3579 


3632 


jOOO 


\7Lf> 

J f HO 


3776 




4116 


4162 


4208 








4484 




5529 


5570 


5666 










SUPAOD 


1# 


2347 












tVARlA 


1« 


889 












SylNDO 


687« 


3463 


3516 


3569 








txz 


If 


2938 


2944 


2964 


?<57fl 


79R9 


2995 




3190 


3196 


3243 


3249 


jCOi 


JC I J 


3291 




3471 


3516 


3524 


3569 


3577 


3622 

JVC C 


3630 

JW «/ w 




3828 


3834 


3858 


3865 


3909 


391 5 


3948 




41 U 


4152 


4160 


4199 




■t to f 


4273 




4629 


4635 


4697 


4703 


4765 


4775 


4868 

"WWW 




5527 


5558 


5568 


5655 


5664 






SZEROS 


687« 














SSCMRE 


894f 


933 


934 


935 


T JO 


937 


938 


SSCHTH 


894# 


939 


940 


941 








SSESCA 


830« 














tSNEUT 


830« 


2948 


2974 


2999 






3098 




3475 


3528 


3581 


3634 


JwOO 


3748 


3778 




4118 


4164 


4210 


4277 


4332 


4409 


4486 




5531 


5572 


5668 










SSSCOP 


If 


1679 












SSSET 


2204f 


2215 


2216 


2217 


2218 


2219 


2220 




2229 














SSSKIP 


830f 














.EQUAT 


If 


720 












.HEADE 


If 


687 












.SETUP 


1f 














.SACTI 


If 


871 












.»APTB 


If 


94 9f 












.SAPTH 


If 


1135 












.$APTY 


1f 


1834 












.tCATC 


1f 














.$CKTA 


1f 


894 












MOP 


1f 


1616 












.SERRO 


1f 














.$ERRT 


If 














.SPOWE 


If 


2322 












.SRDOC 


If 


1996 












.SREAO 


If 


1893 












.SSCOP 


If 


1683 












.STRAP 


If 


2181 












.STYPE 


1f 


1755 












.STYPO 


If 














. ABS. 


033750 


000 
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MACRO NAMES SEO 0138 



3139 


3196 


3251 


3275 


3299 


3335 


3369 


3414 


3806 


3836 


3867 


3917 


3956 


3995 


4034 


4073 


4561 


^637 


4705 


4775 


4877 


4940 


5189 


5465 


3015 


3021 


3045 


3051 


3088 


3094 


3131 


3137 


3297 


3326 


3333 


3360 


3367 


3405 


3412 


3463 


3675 


3684 


3738 


3744 


3768 


3/74 


3798 


3804 


3954 


3987 


3993 


4026 


4032 


4065 


4071 


4106 


4321 


4328 


4398 


4405 


4475 


4482 


4552 


4559 


4875 


4927 


4938 


5175 


5187 


5455 


5463 


5521 


3141 


3200 


3253 


3277 


3301 


5337 


3371 


3416 


3808 


3838 


3869 


3919 


3958 


3997 


4036 


4075 


4563 


4639 


4707 


4777 


4879 


4942 


5191 


5467 


2221 


2222 


2223 


2224 


2225 


2226 


2211 


2228 
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ERRORS DETECTED: 0 
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